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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/15 15:26:00 [显示全部帖子]

代码改成

 

        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("完成数量", "完成数量")
        g.FromServer = True
        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

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/15 19:10:00 [显示全部帖子]

实例发上来测试。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/15 22:31:00 [显示全部帖子]

代码改成

 

Select Case e.Table.Name
    Case "毛坯工序明细_Table1"

        If e.Col.Name.Contains("完成数量_") Then
            If e.Row(e.Col) = 1
                e.Style = "空白"
            End  If
        End If
End Select


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 8:58:00 [显示全部帖子]

没看懂你的意思。你希望不显示某些列?但是,你交叉统计有这些列的数据,自然是要显示的。

 

具体截图或者上传实例说明你需要什么。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 10:33:00 [显示全部帖子]

方法一:在生成交叉统计的之前,能不能先筛选?这样设置交叉统计的条件那就只生成一个产品的数据了。

 

方法二:如果要生成后再筛选,那就在之前的条件上,再加上现在的筛选条件,合成后再重新设置一次交叉统计。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 11:21:00 [显示全部帖子]

        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("完成数量", "完成数量")
        g.FromServer = True

        g.Filter = "你设置的条件"
        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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 10:49:00 [显示全部帖子]

请贴出所写的完整代码啊。你照抄29楼啊。
[此贴子已经被作者于2018/7/17 10:49:23编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 11:42:00 [显示全部帖子]

无语,你要写什么条件就写什么条件啊,比如

 

g.Filter = "第一列 = '123456'"


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/17 13:13:00 [显示全部帖子]

把你【查询】按钮的代码,得到的条件的代码,拷贝进去啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/26 11:09:00 [显示全部帖子]

Select Case e.Table.Name
    Case "毛坯工序明细_Table1"

        If e.Col.Name.Contains("完成数量_") Then
            If e.Row(e.Col) = 1 then
                e.Style = "样式1"

            elseIf e.Row(e.Col) = 2 then

                e.Style = "样式2"

            elseIf e.Row(e.Col) = 3 then

                e.Style = "样式3"

            elseIf e.Row(e.Col) = 4 then

                e.Style = "样式4"

            End  If
        End If
End Select


 回到顶部
总数 14 1 2 下一页