lnFields = fcount("DirectAddress") Select DirectAddress.*, .T. as Direct, nSSC as Code; from DirectAddress; union select ResidueAddress.*, .F., Residue; from ResidueAddress; order by Evaluate(lnFields) desc; into Cursor AddressOrder nofilterThanks in anticipation.