求助：
If e.DataCol."资产物资台账明细表暨资产实物盘点明细表" = "资产数量_台账数量" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表" = "资产数量_系统数量" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表" = "资产数量_财务系统资产数量" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产数量_资产实物管理数量" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产数量_资产实物盘点数量" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产数量_实盘与账面数差额" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_入库" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_出库" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_在修" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_闲置" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_待维修" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_待报废" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_调拨中" Then
e.DataCol."资产物资台账明细表暨资产实物盘点明细表"= "资产状态_其他" Then
Dim pr As DataRow
pr = DataTables("资产物资台账明细表暨资产实物盘点汇总表").Find("商品名称" = '" & e.DataRow("商品名称") & "'")
If pr IsNot Nothing Then
pr("资产数量_台账数量")= pr("资产数量_台账数量") + e.NewValue - e.OldValue
pr("资产数量_系统数量")= pr("资产数量_系统数量") + e.NewValue - e.OldValue
pr("资产数量_财务系统资产数量")= pr("资产数量_财务系统资产数量") + e.NewValue - e.OldValue
pr("资产数量_资产实物管理数量")= pr("资产数量_资产实物管理数量") + e.NewValue - e.OldValue
pr("资产数量_资产实物盘点数量")= pr("资产数量_资产实物盘点数量") + e.NewValue - e.OldValue
pr("资产数量_实盘与账面数差额")= pr("资产数量_实盘与账面数差额") + e.NewValue - e.OldValue
pr("资产状态_入库")= pr("资产状态_入库") + e.NewValue - e.OldValue
pr("资产状态_出库")= pr("资产状态_出库") + e.NewValue - e.OldValue
pr("资产状态_在修")= pr("资产状态_在修") + e.NewValue - e.OldValue
pr("资产状态_闲置")= pr("资产状态_闲置") + e.NewValue - e.OldValue
pr("资产状态_待维修")= pr("资产状态_待维修") + e.NewValue - e.OldValue
pr("资产状态_待报废")= pr("资产状态_待报废") + e.NewValue - e.OldValue
pr("资产状态_调拨中")= pr("资产状态_调拨中") + e.NewValue - e.OldValue
pr("资产状态_其他")= pr("资产状态_其他") + e.NewValue - e.OldValue
End If
End If
加好友 
发短信
Post By：2016/9/27 8:43:00 [显示全部帖子]
