Foxtable(狐表)用户栏目专家坐堂 → 希望大于0的,底纹显示为绿色,白色字体,这个是用交叉统计得的结果,结果入在窗口中


  共有4736人关注过本帖树形打印复制链接

主题:希望大于0的,底纹显示为绿色,白色字体,这个是用交叉统计得的结果,结果入在窗口中

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4628 积分:33772 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/7/14 6:55:00 [显示全部帖子]

参考drawcell

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4628 积分:33772 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/7/14 17:26:00 [显示全部帖子]

全局表事件代码:
Select Case e.Table.Name
    Case "毛坯工序明细_Table1"
        Select Case e.Col.name
            Case "完成数量_1","完成数量_2"
                If e.Row(e.Col) = 1
                    e.Style = "空白"
                End  If
        End Select
End Select

“刷新”按钮代码:
Dim g As New CrossTableBuilder("统计表1", DataTables("毛坯工序状态表"))
g.HGroups.AddDef("毛坯编码")
g.HGroups.AddDef("生产批次")
g.HGroups.AddDef("批次序号")
g.HGroups.AddDef("成品编码")
g.HGroups.AddDef("成品描述")
g.VGroups.AddDef("加工工序")
g.Totals.AddDef("完成数量", "完成数量")
Tables("毛坯工序明细_Table1").DataSource = g.BuildDataSource()
Dim dt As DataTable = Tables("毛坯工序明细_Table1").DataTable
dt.AddUserStyle("空白", Color.Green, Color.White)
dt.Styles("空白").FontBold = True
dt.GlobalHandler.DrawCell = True

 回到顶部