非关联表之间的数据同步
假定有一个产品表和一个库存表,两个表都有产品编号、产品名称、产品规格三列,但是没有建立关联,我们希望:
1、在产品表增加一个产品,库存表对应也增加此产品。
2、在产品表删除一个产品,库存表对应也删除此产品。
3、在产品表更改某产品的产品编号、产品名称或产品规格后,库存表也能同步修改。
设计步骤
1、将产品表的DataColChanged事件代码设置为:
Select Case e.DataCol.name
Case "产品编号"
Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & 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("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
2、将产品表的DataRowDeleting事件代码设置为:
Dim dr As DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If dr IsNot Nothing Then
dr.Delete()
End If
问题:这个是帮助里面的例子,其中有二个表之间互相连接的条件是只要二个表之间能满足相同的产品编号就可以进行同步更新,如果在以后的过程中表会不段增大,会出现很多相同的产品编号,这时只满足一个条件是不行的,如果增加满足条件,如:表只符合相同的产品编号与产品名称才能进行同步更新内容,上面的代码要如何更改,请帮助一下谢谢。