以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  统计表drawcell 没反应  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140094)

--  作者:dengk03
--  发布时间:2019/8/29 11:47:00
--  统计表drawcell 没反应
库存查询按钮代码
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

没反应,怎么回事儿

--  作者:有点蓝
--  发布时间:2019/8/29 11:54:00
--  
需要动态设置样式

Tables("库存管理_table1").DataTable.GlobalHandler.DrawCell = True
Tables("库存管理_table1").DataTable.AddUserStyle("缺货"Color.RedColor.White)