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

专家您好：我在“在制品统计表”中的表事件datacolchanged中编写如下代码，统计“生产安排表”表中的数据：

Select Case e.DataCol.Name

Case "执行合同编号","日期"

Dim dc As DataRow = e.DataRow

Dim filter1 As String

If e.DataCol.name = "产品去向" Then '判断一个列名为"产品去向"的列

If e.DataRow.IsNull(DataTables("生产安排表").DataCols("产品去向")) Then '如果在"生产安排表"的"产品去向"列不是空值

If e.DataRow(DataTables("生产安排表").DataCols("产品去向"))="锻造" Then ‘如果在"生产安排表"的"产品去向"列等于"锻造"

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '下料'"

Dim s1 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '杆体探伤'"

Dim s2 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '双曲线矫直机'"

Dim s3 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

dc("下料矫直转出_锻造转入_根") = s1+s2+s3

End If

end Select

运行后没有输出结果，问题出在哪里？

谢谢二楼专家，问题解决了。看来跨表判断不能在本表中用e.DataRow.IsNull ，我还有类似的判断，也只能用上面的方法了。

请教专家，与刚才的问题类似，我在“在制品统计表”中的表事件datacolchanged中编写如下代码，统计“生产安排表”表中的数据：

Select Case e.DataCol.Name

Case "执行合同编号","日期"

Dim dc As DataRow = e.DataRow

Dim filter1 As String

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 贸易性质_内贸 = false" '机加类设备干的产品如果不是内贸的

Dim c1 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

dc("机加转出_摆差转入_根") = c1

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 级别 = 'HY'" ‘机加类设备干的产品如果级别是“HY”的

Dim c2 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

dc("机加转出_高频转入_根") = c2

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 贸易性质_内贸 = true and 级别 <> 'HY'" ’ 机加类设备干的产品如果既不是外贸，级别又不是“HY”的

Dim c3 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

dc("机加转出_浸漆转入_根") = c3

End Select

运行后没有输出结果，问题出在哪里？

[此贴子已经被作者于2015/11/27 10:56:58编辑过]

加入msgbox，弹出的窗口，没有数据。表和编码如下：

生产安排表：

此主题相关图片如下：11122.bmp

在制品表没法传了，另传

Select Case e.DataCol.Name

Case "执行合同编号","日期"

Dim dc As DataRow = e.DataRow

Dim filter1 As String

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 贸易性质_内贸 = false"

Dim c1 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

MessageBox.Show(c1)

dc("机加转出_摆差转入_根") = c1

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 级别 = 'HY'"

Dim c2 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

MessageBox.Show(c2)

dc("机加转出_高频转入_根") = c2

filter1 = "执行合同编号 = '" & dc("执行合同编号") & "' And 日期 = '" & dc("日期") & "' and 工位 like '机加%' and 贸易性质_内贸 = true and 级别 <> 'HY'"

Dim c3 = DataTables("生产安排表").Compute("SUM(实际完成数量)",filter1 )

MessageBox.Show(c3)

dc("机加转出_浸漆转入_根") = c3

End Select

这是在制品表

图片点击可在新窗口打开查看此主题相关图片如下：11123.bmp

找到问题了，搞错了一个字符,不是"机加%"，是“车床%”。没问题了

主题：[求助]统计问题