这样可以吧?
If(Text([%日期%]) = "",MsgBox("你搞什么搞!",0),SetLabel(" ","计算中--!") And ClearGrid("本期选择") And CopyRows("本期选择","审核日期"," >= ",EOMonth([%日期%],-1)+1,"审核日期"," <= ",EOMonth([%日期%],0)) And DelRow("本期选择",1) And ClearGrid("历史同期") And CopyRows("历史同期","审核日期"," >= ",EOMonth([%日期%],-13)+1,"审核日期"," <= ",EOMonth([%日期%],-12)) And DelRow("历史同期",1) And ClearGrid("上期") And CopyRows("上期","审核日期"," >= ",EOMonth([%日期%],-2)+1,"审核日期"," <= ",EOMonth([%日期%],-1)) And DelRow("上期",1) And ClearGrid("本年至本期") And CopyRows("本年至本期","审核日期"," >= ",EOMonth([%日期%],-Month([%日期%]))+1,"审核日期"," <= ",EOMonth([%日期%],0)) And DelRow("本年至本期",1) And ClearGrid("去年至本期") And CopyRows("去年至本期","审核日期"," >= ",EOMonth([%日期%],-(12+Month([%日期%])))+1,"审核日期"," <= ",EOMonth([%日期%],-12)) And DelRow("去年至本期",1) And ClearGrid("本年") And CopyRows("本年","审核日期"," >= ",EOMonth([%日期%],-Month([%日期%]))+1) And DelRow("本年",1) And ClearGrid("去年") And CopyRows("去年","审核日期"," >= ",EOMonth([%日期%],-(12+Month([%日期%])))+1,"审核日期"," < ",EOMonth([%日期%],-Month([%日期%]))+1) And DelRow("去年",1) And SetLabel(" ","计算结束!"))
-=-=-=- 以下内容由 ly-wzm 在 2009年03月23日 01:03am 时添加 -=-=-=-
先休息了,谢谢!