B函数是用来统计数据的,代码如下:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim b As New SQLGroupTableBuilder("tb_grp","tb_frm_Scan")
b.C
b.AddTable("tb_frm_Scan","FrameID","tb_frm_FtoM","FrameID") '添加统计表
b.AddTable("tb_frm_FtoM","ModelID","tb_frm_model","ModelID") '添加统计
b.Groups.AddDef("OrderID","订单号") '根据产品分组
b.Groups.AddDef("ScanEvent","扫码事件") '
b.Totals.AddDef("StockQty", AggregateEnum.Count , "车架数量")
b.Totals.AddDef("StockQty","在库数量") '对数量进行统计
b.VerticalTotal = True
Dim bt As DataTable = b.Build(True) '生成统计表
With wb.AddTable("","Table3")
.CreateFromDataTable(bt,True)
End With
e.WriteString(wb.Build)
[此贴子已经被作者于2022/10/12 10:23:27编辑过]