同一张表纸芯上盖,列表项目来自另一张材料表,两列数据用列表项目各自选择不同的内容,如何用代码实现非关联表的数据同步?下面是第一列原料厚度的数据实现了同步,第二列胶价格的该如何写?
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("原料单价")
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