if empty(dbf()) return "" endif local lcDBC, lnRetVal, llFound, lcCurDBC, laDBCs[1] lnRetVal = ADATABASES(laDBCs) lcCurDBC = SET('database') FOR EACH lcDBC IN laDBCs SET DATABASE TO (lcDBC) IF INDBC(JUSTSTEM(JUSTFNAME(DBF())), 'Table') llFound = .t. EXIT ENDIF ENDFOR SET DATABASE TO (lcCurDBC) CLEAR if not llFound lcDBC = "" endif RETURN lcDBC