以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLGroupTableBuilder 无数据统计出来，是不是打开项目的时候要加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148508)
--  作者：yetle
--  发布时间：2020/4/9 10:25:00
--  SQLGroupTableBuilder 无数据统计出来，是不是打开项目的时候要加载

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

Dim ddhc As WinForm.ComboBox = e.form.Controls("ComboBox7")
Dim ddh As String = ddhc.text
Dim filter1 As String
filter1="[工序号] = 104 And [单据状态] = \'已完成\' and [订单号] = \'ddh\' "

Dim bd1 As New SQLGroupTableBuilder("统计表1","派发工序表")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("订单号") \'根据型号分组
bd1.Groups.AddDef("制单号") \'根据型号分组
bd1.Groups.AddDef("款号") \'根据型号分组
bd1.Groups.AddDef("颜色") \'根据型号分组
bd1.Groups.AddDef("尺码") \'根据型号分组
bd1.Totals.AddDef("件数","入库_数量") \'对数量进行统计
bd1.Filter = filter1
dt1 = bd1.BuildDataSource()
Tables("销售发货_Table2").DataSource = dt1 \'将统计结果绑定到Table

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200409101838.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/4/9 10:31:00
--  

filter1="[工序号] = 104 And [单据状态] = \'已完成\' and [订单号] = \'" & ddh & "\' "