lnFields = allt(str(fcount("DirectAddress"))) Select DirectAddress.*, .T. as Direct, nSSC as Code; from DirectAddress; union select ResidueAddress.*, .F., Residue; from ResidueAddress; order by &lnFields desc; into Cursor AddressOrder nofilterHTH
>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 nofilter >>Thanks in anticipation.