Select Case e.DataCol.Name
Case "资产数量_台账数量","资产数量_系统数量",......其它列名称自己加上
Dim pr As DataRow
pr = DataTables("资产物资台账明细表暨资产实物盘点汇总表").Find("商品名称 = '" & e.DataRow("商品名称") & "'")
If pr IsNot Nothing Then
pr(e.DataCol.Name)= pr(e.DataCol.Name) + e.NewValue - e.OldValue
End If
End Select
没有一定的基础,代码蒙不出来的