[求助]修改数值后关联表数值不会更改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问下下面标色的代码为什么不会把后台数据改为对应的新值，我希望原来单元格的值是空值，就自动改为新值，改完后同步表数据没有变，但是如果原来单元格不是空值，再次更改就会更改成功，我加了代码查看空值的时候是否允许，结果是了这段代码的

Dim Filter As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'"

Dim Filter1 As String = "检验批编号 = '" & e.DataRow("检验批编号") & "'and 班组 <> '"& "下料" &"'"

Dim drs1 As List(Of DataRow) = DataTables("无损_构件清单").SQLSelect(Filter)

Dim drs2 As List(Of DataRow) = DataTables("无损_检测明细").SQLSelect(Filter)

Select Case e.DataCol.Name

Case "班组"

If e.OldValue = "" Then

For Each dr1 As DataRow In drs1

dr1("班组") = e.DataRow("班组") '修改构件清单表

Else

Dim Result As DialogResult = MessageBox.Show("是否将明细表数据全部更改(不包含下料组)","提示",MessageBoxButtons.YesNo)

For Each dr1 As DataRow In drs1

dr1("车间") = e.DataRow("车间")

If Result = DialogResult.Yes Then

For Each dr2 As DataRow In drs2

dr2("车间") = e.DataRow("车间")

Else

Return

End If

End Select

已经保存了的，还是不行，如果去掉这段就可以

这个位置增加了一段测试，没有问题，每一步都执行了显示的也是正确的，但是结果不会改，是不是前面 Filter筛选条件错误呢

For Each dr1 As DataRow In drs1

msgbox("准备将"& dr1("检验批") & "改为" & e.DataRow("检验批"))

dr1("检验批") = e.DataRow("检验批")

现在可以了，请问下这个是怎么回事，是别的代码干预了吗

这样也可以，但是原来我在代码后面也进行了保存的 DataTables("无损_检测明细").SQLUpdate(drs3)，手动保存也保存过，刷新也是没有，但是你后面给我说的两个方法都可以，这有什么不同吗

一共有3个，dr1,dr2,dr3,这三个我都分别写了，放在代码最后面，end if之前的，而且手动保存也保存过

主题：[求助]修改数值后关联表数值不会更改