>>FUNCTION SCOPE (cDbf,cField,xStart,xEnd) >>LOCAL lcFilterString >>SELECT (cDbf) >>DO CASE >> >> CASE TYPE("xStart") = "D" >> lcFilterString = "set filter to between("+cField+",{"+DTOC(xStart)+"},{"+DTOC(xEnd)+"})" >> CASE TYPE("xStart") = "C" >> lcFilterString = "set filter to between("+cField+",'"+xStart+"','"+xEnd+"')" >> CASE TYPE("xStart") = "N" OR TYPE("xStart") = "I" >> lcFilterString = "set filter to between("+cField+","+xStart+","+xEnd+")" >>ENDCASE >>*-- Set the filter on selected table >>&lcFilterString >>ENDFUNC >>>