If e.DataCol.Name = "数量" Then
Dim pr As DataRow
e.DataRow("数量") = Format(val(e.DataRow("数量")),"00000")
pr = DataTables("库存").Find("背番号 = '" & e.DataRow("背番号") & "'")
If pr IsNot Nothing Then
pr("入库_数量")= pr("入库_数量") + val(e.NewValue) - val(e.OldValue)
End If
End If
[此贴子已经被作者于2017/8/11 22:33:08编辑过]