[求助]这样的结果如何实现？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有三个表，分切工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

dr1("不良只数") = n

dr1.Save

End If

End Select

请问如果是在核数表字段的值改变时，该如何写代码？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:问题.foxdb

主题：[求助]这样的结果如何实现？