nTablesCount=adir(thisform.aTables,"*.dbf") thisform.list1.RowSourceType = 5 thisform.list1.RowSource = 'thisform.aTables' thisform.list1.Requery() thisform.list1.ListIndex = 1thanks
>>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