表单设text1 text2 text3  和一个命令按钮
目的：在text1中输入年份，在text2中输入月份，执行命令按钮，将结果显示在text3中

PUBLIC cl
sum 产量 FOR  YEAR(日期)=VAL(thisform.text1.Value) WHILE  month(日期)=VAL(thisform.text2.Value) TO cl
thisform.text3.value=cl
thisform.refresh

只能执行一次，再次显示为零。