Foxtable(狐表) → 用户栏目 → 专家坐堂 → drawcell 问题


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

主题：drawcell 问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/11/28 13:32:00 [显示全部帖子]

Select Case e.Col.name 
    Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15", "D16", "D17", "D18", "D19", "D20", "D21", "D22", "D23", "D24", "D25", "D26", "D27", "D28", "D29", "D30", "D31", "D32", "D33", "D34", "D35", "D36", "D37", "D38", "D39", "D40", "D41", "D42", "D43", "D44", "D45", "D46", "D47", "D48", "D49", "D50" 
if e.Row.isnull(e.Col.name) = false
                If e.Row(e.Col.name).contains("P") Then
                    e.Style = "橙底"
                elseIf e.Row(c).contains("F") Then
                    e.Style = "绿底"
                End If
End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/8 9:22:00 [显示全部帖子]

截图看看表格数据是怎么样的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/12/8 10:43:00 [显示全部帖子]

Select Case e.Col.name 
    Case "D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14", "D15" 
            If e.row("计划实际") = "月份" Then '找出月份那行
Dim r1 As Row = e.Table.rows(e.row.index - 1)
                If r1(e.Col.name) = "10" andalso e.row(e.Col.name) = "1" Then '如果某列的月份一行等于10
                    e.Style = "红底白字"
                End If
            End If
end select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06201 秒, 5 次数据查询