同一张表纸芯上盖，列表项目来自另一张材料表，两列数据用列表项目各自选择不同的内容，如何用代码实现非关联表的数据同步？下面是第一列原料厚度的数据实现了同步，第二列胶价格的该如何写？
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
加好友 
发短信
Post By：2017/11/6 9:49:00 [只看该作者]
