主题：菜鸟求代码

以下是引用狐狸爸爸在2009-5-18 7:31:00的发言：
用DataColChanged的也行：

下载信息  [文件大小：352.0 KB  下载次数：2]

点击浏览该文件:管理项目46.table

但是在事先设计好统计表的情况下，lxl版主的代码显然更合理，反正都是要单击一个按钮来重算的。

不严谨～ 缺少月份的判断：
if r("月份") >=1 and r("月份") <=12
        ........原代码
else
        MessageBox.Show("月份输入错误!", "提示")
        r("月份") ＝ nothing
end if