Select Case e.DataCol.name
Case "设备编号","数量"
Dim dr As DataRow = DataTables("仓库台账").Find("设备编号 = '" & e.DataRow("设备编号") & "'")
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("品牌")
Else
dr("设备名称") = e.DataRow("设备名称")
Dim n As Integer = dr("库存数量")
dr("库存数量") = e.DataRow("数量")+n
End If
End Select
加好友 
发短信
Post By：2018/2/24 14:53:00 [显示全部帖子]
