THISFORM.FilterCondition = THISFORM.FilterCondition + ' AND BETWEEN(TRANSFORM(TransDt),' + TRANSFORM(THISFORM.TransDtBegin) + ',' + TRANSFORM(THISFORM.TransDtEnd) + ')' m.FilterCondition = THISFORM.FilterCondition SET FILTER TO &FilterCondition