专家您好：我在“在制品统计表”中的表事件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 If
End If
end Select
运行后没有输出结果，问题出在哪里？
加好友 
发短信
Post By：2015/11/27 9:12:00 [只看该作者]
