Select Case e.DataCol.name
Case "设备类型" 第一列是设备类型,第二列是配件名称,一种设备类型下有多个配件名称,新增一个已有的设备类型和配件名称,只会同步设备类型,配件名称不会同步
Dim dr As DataRow = DataTables("库存").Find("设备类型 = '" & e.OldValue & "' and 配件名称 = '" & e.DataRow("配件名称") & "'")
If dr Is Nothing Then
dr = DataTables("库存").AddNew()
dr("设备类型") = e.DataRow("设备类型")
dr("配件名称") = e.DataRow("配件名称")
Else
dr("设备类型") = e.DataRow("设备类型")
End If
Case "配件名称"
Dim dr As DataRow = DataTables("库存").Find("设备类型 = '" & e.DataRow("设备类型") & "' and 配件名称 = '" & e.oldValue & "'")
If dr Is Nothing Then
dr = DataTables("库存").AddNew()
dr("设备类型") = e.DataRow("设备类型")
dr("配件名称") = e.DataRow("配件名称")
Else
dr("配件名称") = e.DataRow("配件名称")
End If
End Select
[此贴子已经被作者于2018/4/18 9:54:38编辑过]