- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]蓝版，如何实现这种实时统计？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180836)
-- 发布时间：2022/10/17 20:49:00
-- [求助]蓝版，如何实现这种实时统计？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
蓝版，如何实现在运费登记表中录入信息，自动在日常统计表中按照日期、货物名称自动统计？如果按照货物名称统计好弄，但是加上日期我就没有思路了？
-- 发布时间：2022/10/17 20:56:00
--
参考：http://www.foxtable.com/webhelp/topics/1472.htm，加多一个日期条件即可
比如统计表的DataColChanged事件
If e.DataCol.Name = "货物名称" orelse e.DataCol.Name = "日期" Then
Dim Filter As String = "[货物名称] = \'" & e.DataRow(货物名称") & "\' and 日期=#" & e.DataRow(日期") & "#"
e.DataRow("原发数") = DataTables("运费登记").Compute("Sum(原发数)", Filter)
End If
End If
-- 发布时间：2022/10/17 21:07:00
--
蓝版，日期和货物名称不是手工输入的，如何实现运费登记表中录入信息以后，日常统计表中自动获取日期、货物名称并对车数、原发、实收进行汇总？
-- 发布时间：2022/10/17 21:18:00
--
运费登记表datacolchanged事件，根据日期和货物名称查询日常统计表是否有这个条件的数据，如果没有就增加
Select Case e.DataCol.Name
Case "日期","货物名称"
Dim pr As DataRow
Case "日期","货物名称"
Dim pr As DataRow
Dim Filter As String = "[货物名称] = \'" & e.DataRow(货物名称") & "\' and 日期=#" & e.DataRow(日期") & "#"
pr = DataTables("统计").Find(Filter )
If pr Is Nothing Then
pr = DataTables("统计").addnew
pr = DataTables("统计").Find(Filter )
If pr Is Nothing Then
pr = DataTables("统计").addnew
pr("货物名称") = e.DataRow(货物名称")
pr("日期") = e.DataRow(日期") End If
DataTables("统计").DataCols("货物名称").RaiseDataColChanged(pr)
End Select
End Select
-- 发布时间：2022/10/17 21:19:00
--
此主题相关图片如下：统计表.png
我的思路是每天录入运费登记表（有入库、有出库）、车间登记标后，这个表中自动显示每天的汇总数，如某种货物今天入库了多少，车间领用了多少，销售出库多少等等。目前我们这没有用入库单、出库单什么的，直接用的磅单。我就想先慢慢按现有的方法做起来，再一点一点完善。
-- 发布时间：2022/10/17 21:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2 (4).zip |
-- 发布时间：2022/10/17 23:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目.table |
蓝版，如果运费登记表里分收发类别，录入信息后，还是在日常统计表里面自动实时统计，不过，日常统计表入库栏只自动统计加工进货，出库栏自动登记加工出货，该如何更改呢？
-- 发布时间：2022/10/18 8:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目.zip |
-- 发布时间：2022/10/18 9:22:00
--
此主题相关图片如下：完成日期.png
-- 发布时间：2022/10/18 9:23:00
--
此主题相关图片如下：出货.png