> FOR i= 1 to ThisForm.List1.ListCount > if thisform.List1.Selected(i) > local array aTemp(1) > a = ALLTRIM(thisform.list1.List(i)) > tbl = ALLTRIM(.sour+(a)) > use (tbl) > AFIELDS(aTemp,tbl) > RELEASE aTemp > endif > endfor >>
>"PAYROLL_TBL.DBF"
>
>>"C:\PROGRAMMING\PROGRAMS\VFP8\PAYROLL\PAYROLL_TBL.DBF"
>
>>"PAYROLL_TBL.DBF"
>
>>
>"C:\PROGRAMMING\PROGRAMS\VFP8\PAYROLL\PAYROLL.DBC"
>
>AFIELDS( ArrayName [, nWorkArea | cTableAlias ] )HTH,