请问下下面标色的代码为什么不会把后台数据改为对应的新值，我希望原来单元格的值是空值，就自动改为新值，改完后同步表数据没有变，但是如果原来单元格不是空值，再次更改就会更改成功，我加了代码查看空值的时候是否允许，结果是了这段代码的
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("班组") '修改构件清单表
Next
Else
Dim Result As DialogResult = MessageBox.Show("是否将明细表数据全部更改(不包含下料组)","提示",MessageBoxButtons.YesNo)
For Each dr1 As DataRow In drs1
dr1("车间") = e.DataRow("车间")
Next
If Result = DialogResult.Yes Then
For Each dr2 As DataRow In drs2
dr2("车间") = e.DataRow("车间")
Next
Else
Return
End If
End If
End Select
加好友 
发短信
Post By：2018/8/13 11:18:00 [只看该作者]
