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("物品类别")
dr("资金类别") = e.DataRow("资金类别")
dr("名称") = e.DataRow("名称")
dr("规格") = e.DataRow("规格")
dr("单位") = e.DataRow("单位")
dr("数量") = e.DataRow("数量")
dr("单价") = e.DataRow("单价")
dr("金额") = e.DataRow("金额")
dr("供货商") = e.DataRow("供货商")
dr("经手人") = e.DataRow("经手人")
dr("单据编号") = e.DataRow("单据编号")
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
[此贴子已经被作者于2018/3/21 11:03:17编辑过]