以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  行样式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111079)

--  作者:jick0526
--  发布时间:2017/12/14 16:26:00
--  行样式
老师,请问下,如果表A的B列小于100,且D,E,F三列里面有任何一列显示“未出售”,那么这行会是样式一的颜色,代码要怎么写,谢谢!
--  作者:有点甜
--  发布时间: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
--  发布时间:2017/12/14 16:43:00
--  
老师,不好意思,能改下吗,改成如果表A为空,且D,E,F三列里面有任何一列显示“未出售”,那么这行会是样式一的颜色

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

--  作者:jick0526
--  发布时间:2017/12/14 16:49:00
--  
老师,补充下,B列是字符列,DEF是字符表达式列
--  作者:有点甜
--  发布时间: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
--  发布时间: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


--  作者:有点甜
--  发布时间: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
--  发布时间:2017/12/14 17:25:00
--  
老师,请问下,如果A列有重复字符,有重复的行则都显示样式2颜色,代码要怎么写,谢谢!
--  作者:有点甜
--  发布时间: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