Dim sql As String = "Selec t Top 5 工单号,开单日期,交货日期,订单数量,{订单}.产品名称,备注,{商品信息}.产品名称,产品规格,用料,客户名称,[拼版数_A面],[拼版尺寸_A面],[用料数量_A面],[裁切尺寸_A面],[裁切数量_A面],[印刷应交_A面],[印刷方式_A面],[拼版数_B面],{商品工艺}.产品名称,[用料数量_B面],[拼版尺寸_B面],[裁切尺寸_B面],[裁切数量_B面],[印刷方式_B面],[印刷应交_B面],是否AB面,[用料尺寸_A面],[用料尺寸_B面],样板,板房,排版,印刷,[印色_面],[印色_底],表面处理,[裱纸_瓦向],[裱纸_尺寸],[裱纸_坑类],[裱纸_数量],模切,成型,包装,{流程工艺}.产品名称 From (({订单} Inner JOIN {商品信息} ON {商品信息}.[_Identify] = {订单}.[_Identify]) Inner JOIN {商品工艺} ON {商品工艺}.[_Identify] = {订单}.[_Identify]) Inner JOIN {流程工艺} ON {流程工艺}.[_Identify] = {订单}.[_Identify] Group By 工单号,开单日期,交货日期,订单数量,{订单}.产品名称,备注,{商品信息}.产品名称,产品规格,用料,客户名称,[拼版数_A面],[拼版尺寸_A面],[用料数量_A面],[裁切尺寸_A面],[裁切数量_A面],[印刷应交_A面],[印刷方式_A面],[拼版数_B面],{商品工艺}.产品名称,[用料数量_B面],[拼版尺寸_B面],[裁切尺寸_B面],[裁切数量_B面],[印刷方式_B面],[印刷应交_B面],是否AB面,[用料尺寸_A面],[用料尺寸_B面],样板,板房,排版,印刷,[印色_面],[印色_底],表面处理,[裱纸_瓦向],[裱纸_尺寸],[裱纸_坑类],[裱纸_数量],模切,成型,包装,{流程工艺}.产品名称"
Dim q As new QueryBuilder
q.TableName = "报表数据0"
q.SelectString = sql
q.Build
MainTable = Tables("报表数据0")
加好友 
发短信
Post By：2018/9/22 16:49:00 [只看该作者]
