>hi,
>thank you for reply,i try as under. not work
>
>FOR nCount = 1 TO nTablesCount
> ? aTables(nTablesCount,1)
>nTablesCount=adir(thisform.aTables,"*.dbf")
>thisform.list1.value=nTablesCount
>thisform.list1.RowSourceType = 5
>thisform.list1.RowSource = 'thisform.aTables'
>thisform.list1.ListIndex = 1
>endfor
>
What exactly doesn't work? Remove this >thisform.list1.value=nTablesCount and add thisform.list1.Requery() after thisform.list1.RowSource = 'thisform.aTables'
Also why do you do loop for? Remove it completely.
If it's not broken, fix it until it is.
My Blog