- 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=146102)
-- 发布时间：2020/2/16 13:58:00
-- [求助]有关分组统计
附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:统计演示重复填充 学习.table |
老师好！希望实现功能，分组统计的结果，真实的在另外表中显示，并能自动更新。因为我在分组统计表的基础上还要增加其它字段，这些新加的字段与分组统计的结果还有计算，该如何实现。附件已设置分组统计1，统计：支付标识，客户、付款状态（已支付、未支付、对账中）、数量、金额。如果不太占用您的时间，帮我写写下代码。感谢！
-- 发布时间：2020/2/16 22:10:00
--
参考这种用法：http://www.foxtable.com/webhelp/topics/1472.htm
-- 发布时间：2020/2/17 10:43:00
--
按帮助文档，似乎已可以了。另请问，多行，列有字符型、日期型，且大多行内容相同，想合并成一条记录到另外一张表里，字符型的列凡是行内容相同，就显示原来行的内容，某字符型行内容不相同的，在另外表就将该行不同内容的信息，通过顿号连接，数字列就汇总统计，且可实时更新，该如何实现。或者，如果一条记录拆分多条记录，该如何实现。请老师给予帮助。
-- 发布时间：2020/2/17 10:48:00
--
根据合同号操作
-- 发布时间：2020/2/17 10:52:00
--
如果拆分，拆分的行在另外一张表里自动增加该拆分的行
-- 发布时间：2020/2/17 11:42:00
--
连接，比如
\'\'\'
For Each s As String In DataTables("表A").GetValues("合同号")
Dim dr As DataRow = DataTables("表B").AddNew
dr("合同号") = s
dr("第二列") = DataTables("表A").GetComboListString("第二列","合同号=\'" & s & "\'").replace("|","、")
next
拆分，比如：
\'\'\'
For Each dr As DataRow In DataTables("表B").DataRows
Dim ar() As String = dr("第二列").split("、")
For Each s As String In ar
Dim nr As DataRow = DataTables("表A").AddNew
nr("合同号") = dr("合同号")
nr("第二列") = s
Next
Next