- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于实时统计问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96308)
-- 发布时间：2017/2/17 15:21:00
-- 关于实时统计问题
见截图：
当表A的两个字段发生变化时如何自动在表B中的“支出金额”字段统计？表B没有被加载。
例如此例：表出的现金正确的结果应为：460元，招行卡：10元。
此主题相关图片如下：weih.jpg
-- 发布时间：2017/2/17 15:24:00
--
参考
http://www.foxtable.com/webhelp/scr/1454.htm
-- 发布时间：2017/2/17 15:25:00
--
参考
http://www.foxtable.com/webhelp/scr/1472.htm
-- 发布时间：2017/2/17 15:31:00
--
这个帮助我看过了，帮助中在第二个表的DataColChanged事件中写代码，并且要输入一个“产品”名称才能统计，
我的需求是不通过输入产品名称触发统计，而是通过在订单表中输入产品名称及数量时就触 发统计。
-- 发布时间：2017/2/17 15:32:00
--
所以看着点蒙，麻烦老师针对我这个情况给出代码指导，谢谢
-- 发布时间：2017/2/17 15:32:00
--
参考
http://www.foxtable.com/webhelp/scr/1472.htm
-- 发布时间：2017/2/17 16:13:00
--
还是不行，我上传了例子。
-- 发布时间：2017/2/17 16:22:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目40.foxdb |
-- 发布时间：2017/2/17 16:36:00
--
问题解决
-- 发布时间：2017/2/23 15:33:00
--
如果改成SQLFIND就不行了，还有哪里需要再保存数据吗？
If e.DataCol.Name = "支出金额" Then
Dim pr As DataRow
pr = DataTables("资金账户").sqlFind("账户名称 = \'" & e.DataRow("结算账户") & "\'")
e.DataRow.Save
If pr IsNot Nothing Then
pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = \'" & e.DataRow("结算账户") & "\'")
Else
pr = DataTables("资金账户").AddNew
pr("账户名称") = e.DataRow("结算账户")
pr("支出金额汇总") = DataTables("支出表").SqlCompute("Sum(支出金额)", "[结算账户] = \'" & e.DataRow("结算账户") & "\'")
End If
End If