>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.