以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多表统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124089)
--  作者：yetle
--  发布时间：2018/8/30 14:57:00
--  多表统计


Dim b As New SQLCrossTableBuilder("统计表1","订单")
b.ConnectionName = "Sale"
b.AddTable("订单","产品ID","产品","产品ID") \'添加统计表
b.AddTable("订单","客户ID","客户","客户ID") \'添加统计表
b.HGroups.AddDef("客户名称") \'添加客户列用于水平分组
b.VGroups.AddDef("产品名称","产品名称_{0}") \'添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
Maintable = Tables("统计表1") 
[此贴子已经被作者于2018/8/30 16:47:40编辑过]
--  作者：有点甜
--  发布时间：2018/8/30 15:05:00
--  

类似，参考

 

http://www.foxtable.com/webhelp/scr/2479.htm

 
--  作者：yetle
--  发布时间：2018/8/30 15:12:00
--  
方法一和方法二生成的是临时表，没法保存，方法三实用，但又太复杂，水平有限，烦请用方法三帮我写写
[此贴子已经被作者于2018/8/30 15:14:15编辑过]
--  作者：有点甜
--  发布时间：2018/8/30 15:18:00
--  
上传具体项目说明。
--  作者：yetle
--  发布时间：2018/8/30 15:42:00
--  
大货用量表有固定表结构

[此贴子已经被作者于2018/8/30 16:47:15编辑过]
--  作者：有点甜
--  发布时间：2018/8/30 16:23:00
--  

参考代码，细节自己完善。如果看不懂代码，请从头学习foxtable编程。

 

Dim dt1 As DataTable = DataTables("销售订单明细")
Dim dt2 As DataTable = DataTables("配色表")
Dim dt3 As DataTable = DataTables("配码表")
For Each dr As DataRow In dt1.Select("")
    For Each ps As DataRow In dt2.Select("款号=\'" & dr("款号") & "\' and 颜色信息=\'" & dr("颜色") & "\'")
        For Each pm As DataRow In dt3.Select("物料id = \'" & ps("物料id") & "\' and 尺码信息 = \'" & dr("尺码") & "\'")
            output.show(dr("款号") & " " & ps("物料id") & " " & pm("物料名称") & " " & pm("尺码信息") & " " & pm("配码信息"))
        Next
    Next
Next
--  作者：yetle
--  发布时间：2018/8/30 16:59:00
--  
好的，谢谢，学习是必须的，是逻辑性很强的代码，主要还是要脑子好使
--  作者：yetle
--  发布时间：2018/9/1 8:48:00
--  
非常感谢啊，这个已完成了