[求助]请问代码这样写有问题吗? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

做了一个按钮,用来刷新统计数据的,关闭代码编辑窗口时提示错误,请问是什么原因呢?谢谢指教!

我的代码如下:

forms("监视窗口").controls("今日蒸镀产量").value = DataTables("蒸镀工piao信息").Compute("sum("蒸镀净重")","蒸镀日期 = #"& date.today &"#")

forms("监视窗口").controls("今日分切产量").value = DataTables("分切工piao信息").Compute("sum("分切净重_合计")","蒸镀日期 = #"& date.today &"#")

forms("监视窗口").controls("今日出货重量").value = DataTables("送货单").Compute("sum("总净重")","送货日期 = #"& date.today &"#")

forms("监视窗口").controls("今日退货重量").value = DataTables("退货单").Compute("sum("总重量")","退货日期 = #"& date.today &"#")

forms("监视窗口").controls("今日一等品率").value = DataTables("核数表").Compute("average("一等品率")","核数日期 = #"& date.today &"#")

Dim d As Date = Date.Today

Dim StartDate As Date = new Date(d.Year, d.Month, 1)

Dim EndDate As Date = New Date(d.Year,d.Month,Date.DaysInMonth(d.Year,d.Month))

forms("监视窗口").controls("本月蒸镀产量").value = DataTables("蒸镀工piao信息").Compute("sum("蒸镀净重")","蒸镀日期 >= #" & StartDate & "# And 蒸镀日期 <= #" & EndDate & "#"

forms("监视窗口").controls("本月分切产量").value = DataTables("分切工piao信息").Compute("sum("分切净重_合计")","蒸镀日期 >= #" & StartDate & "# And 蒸镀日期 <= #" & EndDate & "#"

forms("监视窗口").controls("本月出货重量").value = DataTables("送货单").Compute("sum("总净重")","送货日期 >= #" & StartDate & "# And 送货日期 <= #" & EndDate & "#"

forms("监视窗口").controls("本月退货重量").value = DataTables("退货单").Compute("sum("总重量")","退货日期 >= #" & StartDate & "# And 退货日期 <= #" & EndDate & "#"

forms("监视窗口").controls("本月一等品率").value = DataTables("核数表").Compute("average("一等品率")","核数日期 >= #" & StartDate & "# And 核数日期 <= #" & EndDate & "#"

主题：[求助]请问代码这样写有问题吗?