1、参照非关联表之间的数据同步，对于相同编号的产品同步到另外一张表上的时候，出现，相同编号的产品的数量和金额只有最后一次的数据，看这段代码哪里有问题Select Case e.DataCol.name '同步流水账数据
Case "货品ID"
Dim dr As DataRow = DataTables("库存流水账").Find("货品ID = '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("库存流水账").AddNew()
dr("货品ID") = e.DataRow("货品ID")
dr("日期") = e.DataRow("日期")
dr("单号") = e.DataRow("单号")
dr("名称") = e.DataRow("名称")
dr("规格") = e.DataRow("规格")
dr("入库数量") = e.DataRow("入库数量")
dr("入库金额") = e.DataRow("入库金额")
Else
dr("货品ID") = e.DataRow("货品ID")
End If
Case "名称","规格","入库数量","入库金额"
Dim dr As DataRow = DataTables("库存流水账").Find("货品ID = '" & e.DataRow("货品ID") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
2、同步的时候，出现列名称不一致，为什么数据不能同步过去呢，比如，一开始2张表的“入库数量“
此主题相关图片如下：111.png
此主题相关图片如下：222.png
和”入库金额”名字不一样，同步过去就是“0” 3、同步删除的代码是否有问题
Dim ds As DataRow = DataTables("库存流水账").Find("货品ID = '" & e.DataRow("货品ID") & "'") '同步删除流水账
If ds IsNot Nothing Then
ds.Delete()
End If
[此贴子已经被作者于2019/1/21 0:41:11编辑过]
加好友 
发短信
Post By：2019/1/20 15:40:00 [只看该作者]
