Dim bd2 As New GroupTableBuilder("统计表2", DataTables("入库明细"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("产地") '根据型号分组
bd2.Groups.AddDef("品名") '根据品名分组
bd2.Groups.AddDef("规格") '根据型号分组
bd2.Groups.AddDef("材质") '根据型号分组
bd2.Groups.AddDef("长度") '根据型号分组
bd2.Totals.AddDef("入库件数", "入库_件数") '对数量进行统计
bd2.Totals.AddDef("入库重量", "入库_重量") '对金额进行统计
dt2 = bd2.BuildDataSource()
Dim bd3 As New GroupTableBuilder("统计表3", DataTables("销售提单明细"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("产地") '根据型号分组
bd3.Groups.AddDef("品名") '根据品名分组
bd3.Groups.AddDef("规格") '根据型号分组
bd3.Groups.AddDef("材质") '根据型号分组
bd3.Groups.AddDef("长度") '根据型号分组
bd3.Totals.AddDef("开单件数", "出库_件数") '对数量进行统计
bd3.Totals.AddDef("开单重量", "出库_重量") '对金额进行统计
dt3 = bd3.BuildDataSource()
Dim nms As String() = { "产地", "品名", "规格", "材质", "长度"} '指定连接列
dt2.Combine(nms, dt3, nms) '将销售统计数据组合到进货统计数据
Tables("销售库存统计_Table1").DataSource = dt2 '将统计结果绑定到Table
With DataTables("销售库存统计_Table1").DataCols '用表达式列计算库存数据
.Add("库存_件数", GetType(Integer), " IsNull([入库_件数],0) - ISNULL([出库_件数],0) ")
.Add("库存_重量", GetType(Double), " IsNull([入库_重量],0) - ISNULL([出库_重量],0) ")
End With
Tables("销售库存统计_Table1").SetColVisibleWidth("产地|70|品名|70|规格|70|材质|70|长度|70|入库_件数|70|入库_重量|90|出库_件数|70|出库_重量|90|库存_件数|70|库存_重量|90")
DataTables("销售库存统计_Table1").DataCols("入库_重量").SetFormat("0.000") '显示为整数
DataTables("销售库存统计_Table1").DataCols("出库_重量").SetFormat("0.000") '显示为整数
DataTables("销售库存统计_Table1").DataCols("库存_重量").SetFormat("0.000") '显示为整数
Tables("销售库存统计_Table1").Cols("入库_件数").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").Cols("入库_重量").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").Cols("出库_件数").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").Cols("出库_重量").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").Cols("库存_件数").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").Cols("库存_重量").GrandTotal = True '指定要合计的列
Tables("销售库存统计_Table1").GrandTotal = True '显示合计模式
Tables("销售库存统计_Table1").font = New font("宋体", 10.5)
此主题相关图片如下：999.png
查询表的数据怎样
双击当前行复制当前行的数据到
销售明细表的代码请问怎样写？
加好友 
发短信
Post By：2023/3/27 22:13:00 [显示全部帖子]
