ccount=getfiltercount("mytable", "between(id,521548,529785)") >thisform.txt1.value=ccount > >function getfiltercount(tctable, tcfiltercondition) > local lnselect, lncount > lnselect = select() && Save current work alias! > select 0 > use (tctable) again > count for &tcfiltercondition > lncount = _tally > use > select(lnselect) > return (transform(lncount)) >endfunc >>
FUNCTION getfiltercount(tctable, tcfiltercondition) LOCAL oData LOCAL ARRAY aResult[1] oData = CREATEOBJECT("session") SET DATASESSION TO oData.datasessionid SELECT COUNT(*) FROM (tcTable) WHERE &tcFilterCondition INTO ARRAY aResult oData = .NULL. RETURN TRANSFORM(aResult)