以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合并代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180209)
--  作者：yaojun
--  发布时间：2022/10/7 15:39:00
--  合并代码
请问如下的代码如何合并，太长了
If e.Row("序号") = 1  Then
    e.Style = "a"
End If
If e.Row("序号") = 3  Then
    e.Style = "a"
End If
If e.Row("序号") = 5  Then
    e.Style = "a"
End If
If e.Row("序号") = 7  Then
    e.Style = "a"
End If
If e.Row("序号") = 9  Then
    e.Style = "a"
End If
--  作者：洮沙
--  发布时间：2022/10/7 16:45:00
--  
If e.Row("序号") = 1  or e.Row("序号") = 3  or  e.Row("序号") = 5 or e.Row("序号") = 7 or e.Row("序号") = 9 Then
    e.Style = "a"
End If

或者：
Dim Names As New List(Of String) From {"1", "3", "5", "7", "9"}
If Names.Contains(e.Row("序号")) = True Then \'判断集合是否包括
     e.Style = "a"
End If
[此贴子已经被作者于2022/10/7 16:57:34编辑过]
--  作者：有点蓝
--  发布时间：2022/10/8 9:03:00
--  
如果是判断单数：

If (e.Row("序号") mod 2) = 1  Then
    e.Style = "a"
End If