老师，窗口table中修改父表内容，子表对应内容未能同时修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位好：

我在窗口中上半部分添加一个table，然后在下半部分添加一个三个标签页tabcontrol，每个标签页添加一个table，四个table分别为销售订单，销售明细销售应收销售应付，其中销售订单和销售明细做关联，销售订单作为父表，销售明细分别和销售应收和销售应付做关联，销售明细作为父表。数据同步修改，删除。已实现四个table联动，但是修改销售明细的关联内容时，销售应收和销售应付两个子表相应内容未能同时修改，关联表的同步数据选项取消勾选，不仅如此窗口，单纯在数据表中增加和修改数据，可以通过代码同步，进入窗口后不能实现。窗口table数据表绑定类型是 sqltable，在销售明细表的datacolchanged事件中写入代码如下：

Select Case e.DataCol.name

Case "箱号"

Dim dr As DataRow

dr = DataTables("销售应收").Find("订单编号 = '" & e.DataRow("订单编号") & "'" )

If dr Is Nothing Then

' messagebox.show(e.oldvalue & 1)

dr = DataTables("销售应收").AddNew()

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

Else

dr= DataTables("销售应收").Find("箱号 = '" & e.OldValue & "'" )

If dr Is Nothing Then

' messagebox.show(e.oldvalue & 2)

dr = DataTables("销售应收").AddNew()

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

Else

' messagebox.show(e.oldvalue & 3)

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

End If

dr = DataTables("销售应付").Find("订单编号 = '" & e.DataRow("订单编号") & "'" )

If dr Is Nothing Then

' messagebox.show(e.oldvalue & 1)

dr = DataTables("销售应付").AddNew()

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

Else

dr= DataTables("销售应付").Find("箱号 = '" & e.OldValue & "'" )

If dr Is Nothing Then

'messagebox.show(e.oldvalue & 2)

dr = DataTables("销售应付").AddNew()

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

Else

'messagebox.show(e.oldvalue & 3)

dr("订单编号") = e.DataRow("订单编号")

dr("箱型") = e.DataRow("箱型")

dr("箱号") = e.DataRow("箱号")

End If

End Select

主题：老师，窗口table中修改父表内容，子表对应内容未能同时修改