代码写在OPTIONGROUP的CLICK中
lCondition=ALLTRIM(THISFORM.EXPRESSION.VALUE)
DO CASE
CASE EMPTY(lCondition)
MESSAGEBOX("没有输入查询条件")
CASE THIS.VALUE=1 &&按月份统计
COUNT TO X1 FOR &lCondition
SUM ALL 流出,流入,费用 TO X2,X3,X4 FOR &lCondition
THISFORM.TEXT6.VALUE=X1
THISFORM.TEXT3.VALUE=X2
THISFORM.TEXT4.VALUE=X3
THISFORM.TEXT5.VALUE=X4
****其他的程序你自己写
ENDCASE