Foxtable(狐表)用户栏目专家坐堂 → 行样式


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

主题:行样式

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
行样式  发帖心情 Post By:2017/12/14 16:26:00 [只看该作者]

老师,请问下,如果表A的B列小于100,且D,E,F三列里面有任何一列显示“未出售”,那么这行会是样式一的颜色,代码要怎么写,谢谢!

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


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

If e.row("B") < 100 AndAlso (e.row("D") like "*未出售*" orelse e.row("E") like "*未出售*" orelse e.row("F") like "*未出售*") then

    e.Style = "样式1"

End If


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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/12/14 16:43:00 [只看该作者]

老师,不好意思,能改下吗,改成如果表A为空,且D,E,F三列里面有任何一列显示“未出售”,那么这行会是样式一的颜色

就是把如果表A的B列小于100改成如果表A的B列为空

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/12/14 16:49:00 [只看该作者]

老师,补充下,B列是字符列,DEF是字符表达式列

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


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

If e.row.IsNull("B") AndAlso (e.row("D") like "*未出售*" orelse e.row("E") like "*未出售*" orelse e.row("F") like "*未出售*") then

    e.Style = "样式1"

End If


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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/12/14 16:59:00 [只看该作者]

老师,请问下,下面的代码如果改成“B列”如果等于5位数,代码改怎么改谢谢!

If e.row("B") < 100 AndAlso (e.row("D") like "*未出售*" orelse e.row("E") like "*未出售*" orelse e.row("F") like "*未出售*") then

    e.Style = "样式1"

End If


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


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

If e.row("B").length = 5 AndAlso (e.row("D") like "*未出售*" orelse e.row("E") like "*未出售*" orelse e.row("F") like "*未出售*") then

    e.Style = "样式1"

End If


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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/12/14 17:25:00 [只看该作者]

老师,请问下,如果A列有重复字符,有重复的行则都显示样式2颜色,代码要怎么写,谢谢!

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


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

Dim fdr As DataRow = e.Table.DataTable.find("A = '" & e.Row("A") & "'", "", 1)
If fdr IsNot Nothing Then
    e.style = "样式2"
End If


 回到顶部