Select
Case
e.DataCol.name
Case
"产品编号"
Dim dr As
DataRow =
DataTables("库存").SQLFind("产品编号 = '" &
e.OldValue
& "'")
If
dr Is
Nothing
Then
dr = DataTables("库存").AddNew()
dr("产品编号") = e.DataRow("产品编号")
dr("产品名称") = e.DataRow("产品名称")
dr("产品规格") = e.DataRow("产品规格")
Else
dr("产品编号") = e.DataRow("产品编号")
End
If
Case
"产品名称","产品规格"
Dim dr As
DataRow = DataTables("库存").SQLFind("产品编号 =
'" & e.DataRow("产品编号") & "'")
If
dr IsNot
Nothing
Then
dr(e.DataCol.Name) =
e.DataRow(e.DataCol.Name)
End
If
End
Select
上述代码在应用中有两个问题:
1、如何实现库存表不存在“产品编码”增加行,存在则不增加行?
2、如果两个表不属于同一个数据源,上述代码好像不能同步,如何修改?