- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 统计，固定格式，能根据特定的统计要求（如某个月份），来显示统计结果 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101159)
-- 发布时间：2017/5/25 22:15:00
-- 统计，固定格式，能根据特定的统计要求（如某个月份），来显示统计结果
1）现在我在下拉菜单选择4月份（199904），明细表会只显示199904的数据，但统计分析表，还是之前的结果。如何让结果根据变化来重新统计？
2）下来菜单，怎样增加“全部”选项，可以显示所有
此主题相关图片如下：11.gif
此主题相关图片如下：12.gif
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计演示 -固定格式.table |
[此贴子已经被作者于2017/5/25 22:15:25编辑过]
-- 发布时间：2017/5/25 22:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:统计演示 -固定格式.table |
-- 发布时间：2017/5/26 9:19:00
--
一打开，统计表那里是空的，换个表格，才显示结果
此主题相关图片如下：13.gif
-- 发布时间：2017/5/26 9:47:00
--
MainTableChanged事件
If MainTable.Name = "销售统计" Then
改为
If MainTable.Name = "销售统计" OrElse MainTable.Name = "main" Then
-- 发布时间：2017/5/26 18:53:00
--
1） filter = "1=1" ，这个是什么意思
2）“For Each cp.....” ，如果想看到cp的具体内容，是用MessageBox还是Output，代码怎么写
-------
Dim filter As String
If e.Sender.text = "全部" Then
filter
= "1=1"
Else
filter
= "[期间] = \'" &
e.sender.Text & "\'"
End If
e.Form.controls("table2").Table.filter = filter
DataTables("销售统计").DataRows.Clear
For Each cp As String In DataTables("订单").GetValues("产品", filter)
Dim
ndr As DataRow = DataTables("销售统计").AddNew
ndr("产品") = cp
ndr("数量") = DataTables("订单").Compute("sum(数量)", filter
& " and 产品 = \'" & cp & "\'")
ndr("金额") = DataTables("订单").Compute("sum(金额)", filter
& " and 产品 = \'" & cp & "\'")
Next
-- 发布时间：2017/5/26 20:24:00
--
1、1=1是条件永远为真，一般用来合成条件表达式，可以有效减少程序判断的代码
2、如果是用来调试MessageBox还是Output都可以。
Output需要打开命令窗口才能看到结果，但是不会阻塞程序运行
MessageBox可以弹出结果，点击后才会继续运行
各有优缺点，自己喜欢
-- 发布时间：2017/5/27 0:53:00
--
按设置好的格式，又该怎么处理
此主题相关图片如下：捕获12.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:统计演示 -固定格式 2.table |
-- 发布时间：2017/5/27 9:08:00
--
Dim filter As String
If e.Sender.text = "全部" Then
filter = "1=1"
Else
filter = "[期间] = \'" & e.sender.Text & "\'"
End If
e.Form.controls("table2").Table.filter = filter
DataTables("销售统计").DataRows.Clear
Dim f As New Filler
f.SourceTable = DataTables("统计表") \'指定数据来源
f.SourceCols = "产品" \'指定数据来源列
f.DataTable = DataTables("销售统计") \'指定数据接收表
f.DataCols = "产品" \'指定数据接收列
f.Fill() \'填充数据
For Each dr As DataRow In DataTables("销售统计").DataRows
dr("数量") = DataTables("订单").Compute("sum(数量)", filter & " and 产品 = \'" & dr("产品") & "\'")
dr("金额") = DataTables("订单").Compute("sum(金额)", filter & " and 产品 = \'" & dr("产品") & "\'")
Next
-- 发布时间：2017/5/27 10:30:00
--
一定要在"销售统计"有数据，才能把数据填充到"统计表"嘛？有没办法直接从"订单"，读取数据，填充到"统计表"
[此贴子已经被作者于2017/5/27 11:25:26编辑过]
-- 发布时间：2017/5/27 11:04:00
--
For Each dr As DataRow In DataTables("统计表").DataRows
dr("数量") = DataTables("订单").Compute("sum(数量)", filter & " and 产品 = \'" & dr("产品") & "\'")
dr("金额") = DataTables("订单").Compute("sum(金额)", filter & " and 产品 = \'" & dr("产品") & "\'")
Next