=adir(adbf,"*.dbf") for idbf=1 to alen(adbf,1) use (adbf[idbf,1]) release afld =afield(afld) for ifld=1 to alen(afld,1) if afld[ifld,1]=="A" ?adbf[idbf,1],afld[ifld,2],afld[ifld,3] EXIT endif endfor endfor>VFP 7
>The field a occurs in: > >Table Format >c i 2 >e i 3 >>FWIW I have the stonefeild database toolkit for this application (but it may not aways be available).