>Lparameters tiQuoteNo > >lnSelect=Select() > >Select 0 >use dbf("Quote") again alias (sys(2015)) >Sum (qty*price); > For quote_no=tiQuoteNo And Print=.T.; > To Thisform.nQuoteTotalPrice >use > >Select (lnSelect) > >Return Thisform.nQuoteTotalPrice >1. Alias() - Oh yeah. I knew that, and usually do a better job; like this:
If !empty(lcAlias) Select (lcAlias) EndifHowever, I like your method, and I will start to use it.