有三个表，分切工piao信息、成品检验记录表、核数表。
希望在核数表“不良品_只数”值变化的时候，将成品检验记录表中的“不良项目_只数”按照“不良项目_班组”进行合计到分切工piao信息表中对应的“不良只数”中。（之前是在成品检验记录表字段值变化的时候进行赋值，因两个表有时录入顺序经常颠倒，所以经常无法值赋到分切工piao信息表中去。）为改变现状，欲做此改变。
之前成品检验记录表中的代码为：
Select Case e.DataCol.Name
Case "不良项目1_只数","不良项目2_只数","不良项目3_只数","不良项目4_只数","不良项目5_只数","不良项目6_只数","不良项目7_只数","不良项目8_只数","不良项目9_只数","不良项目10_只数"
Dim dr1 As DataRow
Dim bz As String = e.DataCol.Name.Replace("只数","班组")
dr1 = DataTables("分切工piao信息").SQLFind("[流水号] = '" & e.DataRow("流水号") & "' And 分切班组 = '" & e.DataRow(bz) & "'")
If dr1 IsNot Nothing Then
Dim n As Double
For Each sdr As DataRow In e.DataTable.Select("流水号='" & e.DataRow("流水号") & "'")
For i As Integer = 1 To 10
If sdr("不良项目" & i & "_责任").Contains("分切") AndAlso sdr("不良项目" & i & "_班组") = e.DataRow(bz) Then
n = n + sdr("不良项目" & i & "_只数")
End If
Next
Next
dr1("不良只数") = n
dr1.Save
End If
End Select
请问如果是在核数表字段的值改变时，该如何写代码？
加好友 
发短信
Post By：2015/1/2 11:49:00 [显示全部帖子]
