[求助]我的表事件代码应该怎样写才对呢? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教一个关于多行数值变化的数据引用,表事件的设置应该是怎样设呢?即:蒸镀派工表引用的是窗口的蒸镀派工表的数据,当蒸镀派工表的派工件数发生变化的时候,生产主表中的"蒸镀已派工件数"随着发生变化,同时"蒸镀未派工件数"也发生变化.

我在蒸镀派工表的表事件datacolchanged中写入的代码为:

Dim dr As DataRow = e.DataRow

dr = DataTables("生产主表").find("生产单号 = '" & Tables("蒸镀派工表").Current("生产单号") & "'")

Select Case e.DataCol.Name

Case "派工件数"

dr("蒸镀已派工件数") = DataTables("蒸镀派工表").Compute("sum(派工件数)","生产单号 = '" & Tables("蒸镀派工表").Current("生产单号") & "'")

End Select

在生产主表的表事件datacolchanged中写入的代码为:

If e.DataCol.Name = "蒸镀已派工件数" Then

Dim r As Row = Tables("生产主表").Current

r("蒸镀未派工件数") = r("件数") - r("蒸镀已派工件数")

End If

'---------------------------------------

If e.DataCol.Name = "蒸镀未派工件数" Then

Dim r As Row = Tables("生产主表").Current

If r("蒸镀未派工件数") = 0 Then

r("蒸镀已派工") = True

Else

r("蒸镀已派工") = False

End If

如果同时引用两条以上数据的时候,生产主表中的蒸镀已派工件数,只变化一行,其它行不变,详见图例,请问该如何修改代码?谢谢

改一下

在蒸镀派工表的表事件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

可以了, e.datarow("蒸镀未派工件数") = e.DataRow("件数") - e.DataRow("蒸镀已派工件数"),这样写对吧?

主题：[求助]我的表事件代码应该怎样写才对呢?