以下是引用狐狸爸爸在2011-11-6 22:13:00的发言：
只需修改代码，将材质的条件加进去即可：
If e.DataRow.Isnull("通打计划号") = False Then
Select Case e.DataCol.Name
Case "半成品","成品","装窑"
For Each dr As DataRow In e.DataTable.Select("通打计划号 = '" & e.DataRow("通打计划号") & "' And 材质 = '" & e.DataRow("材质") & "'")
dr(e.DataCol.Name) = e.NewValue
Next
Case "合同数量"
Dim v As Integer = e.DataTable.Compute("Sum(合同数量)","通打计划号 = '" & e.DataRow("通打计划号") & "' And 材质 = '" & e.DataRow("材质") & "'")
For Each dr As DataRow In e.DataTable.Select("通打计划号 = '" & e.DataRow("通打计划号") & "' And 材质 = '" & e.DataRow("材质") & "'")
dr("通打数量") = v
Next
Case "通打计划号","材质"
e.DataTable.DataCols("半成品").RaiseDataColChanged(e.DataRow)
e.DataTable.DataCols("成品").RaiseDataColChanged(e.DataRow)
e.DataTable.DataCols("装窑").RaiseDataColChanged(e.DataRow)
e.DataTable.DataCols("合同数量").RaiseDataColChanged(e.DataRow)
End Select
End If
[此贴子已经被作者于2011-11-6 22:21:00编辑过]
狐狸爸爸这个代码我用了很长时间发现了一个问题 但是不知道如何解决 就是当这个表输入了通打计划号会在半成品、成品、装窑、合同数量里面显示0 ，在什么地方加进代码可以改变输入通打计划号后，不会在半成品、成品、装窑、合同数量里面显示0，而是空。当输入数据的时候在显示能不能实现
加好友 
发短信
Post By：2011/11/5 10:06:00 [显示全部帖子]
