Select Case e.DataCol.name
Case "货物编号"
Dim dr As DataRow = DataTables("库存明细表").Find("货物编号 = '" & e.OldValue & "'")
If dr IsNot Nothing Then
dr("货物编号") = e.DataRow("货物编号")
Else
dr = DataTables("库存明细表").Find("货物编号 = '" & e.newValue & "'")
If dr Is Nothing Then
dr = DataTables("库存明细表").AddNew()
End If
End If
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("单价")
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：2020/12/13 20:33:00 [显示全部帖子]
