以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按条件统计金额  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89003)

--  作者:蓝蚂蚁
--  发布时间:2016/8/13 11:40:00
--  窗口按条件统计金额
期待老师再次帮忙 谢谢  要实现的功能:在窗口输入条件,点击汇总之后,统计相关数据。(注:窗口中各个公司总金额等于表格中的金额1+金额2)数据表和窗口设计如下:
图片点击可在新窗口打开查看此主题相关图片如下:表.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:窗口.png
图片点击可在新窗口打开查看


--  作者:Hyphen
--  发布时间:2016/8/13 14:34:00
--  
参考http://www.foxtable.com/webhelp/scr/0393.htm
--  作者:蓝蚂蚁
--  发布时间:2016/8/13 16:06:00
--  
 Hyphen老师 你好 我弄了一个下午都不懂 能麻烦你弄个代码给我吗 拜托了 
--  作者:Hyphen
--  发布时间:2016/8/13 16:07:00
--  
上传你的例子
--  作者:蓝蚂蚁
--  发布时间:2016/8/13 16:20:00
--  
我不会啊  我用另外一种办法:增加一列表达式列  名为总金额   总金额=金额1+金额2  然后用汇总模式统计出来 这样只是麻烦一点  没有这么直观  谢谢你
--  作者:大红袍
--  发布时间:2016/8/14 13:08:00
--  

Dim sum1 As Double = Tables("表A").Compute("sum(金额1)", "进货公司 = \'美的公司\' and 结入月份 = \'2016年1月\'")

Dim sum2 As Double = Tables("表A").Compute("sum(金额2)", "进货公司 = \'美的公司\' and 结入月份 = \'2016年1月\'")

e.Form.Controls("TextBox1").Text = sum1 + sum2