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 = 1endfor
>>SET DEFAULT TO d:\vfpview >>nTablesCount = ADIR(aTables, 'DBF')&&& result is 0 >>nTablesCount = ADIR(aTables, '*.DBF')&&& ok >>CLEAR >>FOR nCount = 1 TO nTablesCount >> ? aTables(nTablesCount,1) >>thisform.list1.value=aTables(nTablesCount,1) >>or >>thisform.combo1.value=aTables(nTablesCount,1) >> >> >>ENDFOR >>>>thanks
>=adir(thisform.aTables,"*.dbf") >thisform.list1.RowSourceType = 5 >thisform.list1.RowSource = 'thisform.aTables' >thisform.list1.ListIndex = 1