改一下
在蒸镀派工表的表事件datacolchanged中写入的代码为:
Select Case e.DataCol.Name
Case "派工件数"
Dim sum As Double = DataTables("蒸镀派工表").Compute("sum(派工件数)","生产单号 = '" & e.DataRow("生产单号") & "'")
DataTables("生产主表").ReplaceFor("蒸镀已派工件数", sum, "生产单号 = '" & e.DataRow("生产单号") & "'")
End Select
'在生产主表的表事件datacolchanged中写入的代码为:
If e.DataCol.Name = "蒸镀已派工件数" Then
r("蒸镀未派工件数") = e.DataRow("件数") - e.DataRow("蒸镀已派工件数")
End If
'---------------------------------------
If e.DataCol.Name = "蒸镀未派工件数" Then
If e.DataRow("蒸镀未派工件数") = 0 Then
e.DataRow("蒸镀已派工") = True
Else
e.DataRow("蒸镀已派工") = False
End If
End If
加好友 
发短信
Post By：2014/7/24 11:01:00 [显示全部帖子]
