Foxtable(狐表)用户栏目专家坐堂 → [求助]有关分组统计


  共有3911人关注过本帖树形打印复制链接

主题:[求助]有关分组统计

帅哥哟,离线,有人找我吗?
ntqhj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:475 积分:2993 威望:0 精华:0 注册:2018/1/15 13:54:00
[求助]有关分组统计  发帖心情 Post By:2020/2/16 13:58:00 [只看该作者]

附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:统计演示重复填充 学习.table

老师好!希望实现功能,分组统计的结果,真实的在另外表中显示,并能自动更新。因为我在分组统计表的基础上还要增加其它字段,这些新加的字段与分组统计的结果还有计算,该如何实现。附件已设置分组统计1,统计:支付标识,客户、付款状态(已支付、未支付、对账中)、数量、金额。如果不太占用您的时间,帮我写写下代码。感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111455 积分:567357 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/16 22:10:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:475 积分:2993 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/2/17 10:43:00 [只看该作者]

按帮助文档,似乎已可以了。另请问,多行,列有字符型、日期型,且大多行内容相同,想合并成一条记录到另外一张表里,字符型的列凡是行内容相同,就显示原来行的内容,某字符型行内容不相同的,在另外表就将该行不同内容的信息,通过顿号连接,数字列就汇总统计,且可实时更新,该如何实现。或者,如果一条记录拆分多条记录,该如何实现。请老师给予帮助。

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:475 积分:2993 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/2/17 10:48:00 [只看该作者]

根据合同号操作

 回到顶部
帅哥哟,离线,有人找我吗?
ntqhj
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:475 积分:2993 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2020/2/17 10:52:00 [只看该作者]

如果拆分,拆分的行在另外一张表里自动增加该拆分的行

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111455 积分:567357 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部