- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 自动计算公式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48166)
-- 发布时间：2014/3/24 13:46:00
-- [求助] 自动计算公式
我希望在附件中 “统计表”的‘库存数量’中自动计算出“出入库表”中相同设备的库存数量：统计表/库存数量=出入库表/入库和-出库和
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
-- 发布时间：2014/3/24 14:24:00
--
1、“出入库表”的“数量”列改为“数值型”
2、“汇总表”的DataColChanged事件使用以下代码试试：
Select Case e.DataCol.Name
Case "设备名称","设备型号"
Dim dr As DataRow = e.DataRow
Dim i1,i2 As Integer
Dim s As String = "设备名称=\'" & dr("设备名称") & "\' and 设备型号=\'" & dr("设备型号") & "\'"
i1 = DataTables("出入库表").Compute("Sum(数量)",s & " And 出入库=\'出库\'")
i2 = DataTables("出入库表").Compute("Sum(数量)",s & " And 出入库=\'入库\'")
dr("库存数量") = i2-i1
End Select
-- 发布时间：2014/3/24 15:00:00
--
无法在出入库表数据发生变化时、汇总表自动产生变化
-- 发布时间：2014/3/24 15:04:00
--
比起在出入库表写代码，2楼的方法更简单、可靠，
-- 发布时间：2014/3/24 15:04:00
--
在出入库DataColChanged事件根据具体情况,执行RaiseDataColChanged
-- 发布时间：2014/3/24 15:05:00
--
你可以看看：
http://www.foxtable.com/help/topics/1472.htm