库存查询按钮代码
Dim b As New SQLGroupTableBuilder("成品库存","出入库")
b.C">b.Groups.AddDef("货物编号") '添加客户列用于分组
b.Groups.AddDef("货物名称") '添加产品列用于分组
b.Groups.AddDef("配方编号") '添加产品列用于分组
b.Groups.AddDef("规格") '添加产品列用于分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Groups.AddDef("单位") '添加产品列用于分组
b.Build '生成统计表
Tables("库存管理_table1").datasource = DataTables("成品库存")
Tables("库存管理_table1").SetColVisibleWidth("货物编号|40|货物名称|110|配方编号|45|规格|110|单位|30|数量|40")
Tables("库存管理_table1").DataTable.GlobalHandler.DrawCell = True
全局表drawcell代码
Select Case e.Table.name
Case "库存管理_table1"
If e.Row("数量") < 0
e.style = "缺货"
End If
End Select
没反应，怎么回事儿
加好友 
发短信
Post By：2019/8/29 11:47:00 [显示全部帖子]
