以文本方式查看主题

-  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=176341)
--  作者：xietan417
--  发布时间：2022/4/9 11:19:00
--  [求助] 分组汇总

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
如何将表中的数据 ，按客户和种类进行汇总成2.PNG 的样式？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.foxdb
--  作者：有点蓝
--  发布时间：2022/4/9 11:46:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test.zip
--  作者：xietan417
--  发布时间：2022/4/9 13:46:00
--  
反过来了，蓝版图片点击可在新窗口打开查看，是把表A转成表B
[此贴子已经被作者于2022/4/9 14:23:44编辑过]
--  作者：有点蓝
--  发布时间：2022/4/9 14:25:00
--  
Dim dr As DataRow
For Each ss() As String In DataTables("表A").GetValues("客户|种类")
    dr = DataTables("表B").AddNew
    dr("客户") = ss(0)
    dr("种类") = ss(1)
    Dim s As String = ""
    For Each r As DataRow In DataTables("表A").Select("客户=\'" & ss(0) & "\' And 种类=\'" & ss(1) & "\'","模号")
        For i As Integer = 1 To r("数量")
            s = s & "," & r("模号")
        Next
    Next
    dr("模号") = s.Trim(",")
Next
--  作者：xietan417
--  发布时间：2022/4/9 14:29:00
--  
谢谢蓝版