专家坐堂-[求助]怎么回事会显示错误呢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么回事会显示错误呢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90981)

--  作者：笨笨
--  发布时间：2016/9/27 8:43:00
--  [求助]怎么回事会显示错误呢

求助：
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

--  作者：有点蓝
--  发布时间：2016/9/27 8:51:00
--

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

初学者严重建议看看【编程基础】、【Foxtable编程】，还有视频教程http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187
没有一定的基础，代码蒙不出来的