Select Case e.DataCol.Name
Case "第一列","第二列","第三列"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("第一列") OrElse dr.IsNull("第二列") OrElse dr.IsNull("第三列") Then
dr("第四列") = Nothing
Else
Dim filter As String
filter = "第一列 = '" & dr("第一列") & "' And 第二列 = '" & dr("第二列") & "' And 第三列 = '" & dr("第三列") & "'"
pr = DataTables("表A").Find(filter)
If pr IsNot Nothing Then
pr("第四列")= pr("第四列") + e.NewValue - e.OldValue
e.DataRow("第四列") = "已出售"
Else
e.DataRow("第四列") = "未出售"
End If
End If
End Select
老师，我代码已经写好了，可以显示“已出售”和“未出售”了，但是为什么还是不能即时更新，每次要重置列才可以，我已经把即时更新的代码也放进去了，老师能帮我看下吗？
加好友 
发短信
Post By：2017/3/23 19:04:00 [显示全部帖子]
