此主题相关图片如下：未命名1.png
此主题相关图片如下：未命名.png
If Forms("班组分析").Opened()
Dim t As Table = Tables("班组分析_table1")
t.Fill("SELECT c.Goodsxl as 系列名, c.Gyno as 物供号, c.ZDNO as 制单号, B.Orderno as 订单号, B.MakeGro as 班组, B.Ftyno AS 款号,b.QCType as 不合格原因, Sum(Isnull(b.num,0)) as 返工件数 F ROM Qc_Main A LEFT JOIN QC_ReturnMake B ON A.ID=B.UpID left join pq_main C ON B.Orderno =C.ORDERNO WHERE C.ZDNO='18011514' and Isnull(b.num,0) >0 GROUP BY c.Goodsxl,c.Gyno,c.ZDNO,B.Orderno,B.MakeGro,B.Ftyno,B.QCTYPE " , "鼎邦系统",True)
Dim t2 As Table = Tables("班组分析_table2")
t2.Fill("SELECT Makeno as 制单号,Goods as 类别, MakeQty as 制单数, CutQty as 裁剪数, InQty as 入库数 F ROM CO_SB_Main WHERE gyno LIKE '%,170200,%' " , "鼎邦系统",True)
End If
Dim sg As New SQLCrossTableBuilder("班组分析","班组分析_table1")
sg.AddTable("班组分析_table1","制单号","班组分析_table2","制单号")
sg.HGroups.AddDef("制单号") '添加客户列用于水平分组
sg.VGroups.AddDef("不合格原因") '添加产品列用于垂直分组,并设置了Pattern参数
sg.Totals.AddDef("返工件数") '添加数量列用于统计
sg.Build '生成统计表
加好友 
发短信
Post By：2018/6/19 16:04:00 [只看该作者]
