[求助]请问代码这样写有问题吗? - 专家坐堂 - 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 & "#"

提示什么错误呢?

提示如下:

此主题相关图片如下：qq截图20140829170235.jpg

sum("xxxx") 里面的全部引号去掉

找了半天,原来问题出在这里,真是马虎!现在关闭窗口没错误提示了!

但在执行的时候,提示错误!

此主题相关图片如下：qq截图20140829172907.jpg

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

我的"蒸镀工piao信息"中有"蒸镀日期"的列呀!

根据错误提示，你去看你对应的表，是否存在这一列，有可能写错列名了。

这个列名是不是我要统计的表的列呢?我要统计的是"蒸镀工piao信息"中的数据至一个临时表中,我的"蒸镀工piao信息"有"蒸镀日期"的列,临时表中没有这个列.

此主题相关图片如下：qq截图20140829173635.jpg

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

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

你的[【蒸镀工piao信息】表和【分切工piao信息】表都必须有这一列

再者，说的是你的列名，不是列标题，有可能列名和列标题是不一致的。

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