Foxtable(狐表)用户栏目专家坐堂 → 绘制单元格,满足条件的底纹


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

主题:绘制单元格,满足条件的底纹

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8064 威望:0 精华:0 注册:2013/5/30 11:27:00
绘制单元格,满足条件的底纹  发帖心情 Post By:2014/11/7 11:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141107114303.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141107114303.jpg
图片点击可在新窗口打开查看
我想要打圆的单元格自动出来绿色底纹,可是代码改了,就是不出来,怎么回事?列字段名叫“第一课时”代码:

If e.Col.IsNumeric AndAlso e.Col.Name = "第一课时" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) = "○" Then '如果该列的值小于60
            e.Style = "QJ" '那么用"不及格"样式绘制单元格
        'ElseIf e.Row(e.Col.Name) = "×" Then '如果单元格的值大于95
            'e.Style = "KK" '那么用"优秀"样式绘制单元格
        End If
    End If
End If
If e.Col.IsNumeric AndAlso e.Col.Name = "第三课时" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) = "○" Then '如果该列的值小于60
            e.Style = "QJ" '那么用"不及格"样式绘制单元格
        'ElseIf e.Row(e.Col.Name) = "×" Then '如果单元格的值大于95
            'e.Style = "KK" '那么用"优秀"样式绘制单元格
        End If
    End If
End If


 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:893 积分:8064 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2014/11/7 11:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20141107114235.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/7 11:46:00 [只看该作者]

 字符不匹配。设置一下,再拷贝字符 x o 的字符进去

 

http://www.foxtable.com/help/topics/1273.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/7 11:48:00 [只看该作者]

If e.Col.Name = "第一课时" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) = "○" Then '如果该列的值小于60
            e.Style = "QJ" '那么用"不及格"样式绘制单元格
        'ElseIf e.Row(e.Col.Name) = "×" Then '如果单元格的值大于95
            'e.Style = "KK" '那么用"优秀"样式绘制单元格
        End If
    End If
Else If e.Col.Name = "第三课时" Then
    If e.Row.IsNull(e.Col.Name) = False '且该列已经输入内容
        If e.Row(e.Col.Name) = "○" Then '如果该列的值小于60
            e.Style = "QJ" '那么用"不及格"样式绘制单元格
        'ElseIf e.Row(e.Col.Name) = "×" Then '如果单元格的值大于95
            'e.Style = "KK" '那么用"优秀"样式绘制单元格
        End If
    End If
End If

 回到顶部