Select Case e.DataCol.Name
Case "机具ID"
Dim Filter As String = "[机具ID] = '" & e.oldvalue & "'"
Dim drs As List(Of DataRow) = DataTables("商户资料表").Select(Filter)
For Each dr As DataRow In drs
dr("机具ID") = e.NewValue
dr("机具条码") = e.DataRow("机具条码")
Next
Case "机具条码"
Dim Filter As String = "[机具ID] = '" & e.DataRow("机具id") & "'"
Dim drs As List(Of DataRow) = DataTables("商户资料表").Select(Filter)
For Each dr As DataRow In drs
dr("机具条码") = e.DataRow("机具条码")
Next
Case "商户ID"
If e.NewValue Is Nothing Then
e.DataRow("商户名称") = Nothing
e.DataRow("客户ID") = Nothing
e.DataRow("客户姓名") = Nothing
e.DataRow("机具是否绑定") = False
Else
e.DataRow("机具是否绑定") =True
Dim dr As DataRow
dr = DataTables("商户资料表").Find("[商户ID] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("商户名称") = dr("商户名称")
e.DataRow("客户ID") = dr("客户ID")
e.DataRow("客户姓名") = dr("法人姓名")
End If
End If
If e.OldValue <> Nothing Then
For Each dr As DataRow In DataTables("商户资料表").Select("商户id = '" & e.OldValue & "'")
dr("机具id") = Nothing
dr("机具条码") = Nothing
Next
End If
End Select
加好友 
发短信
Post By：2017/9/5 20:18:00 [显示全部帖子]
