以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  必填字段背景都红色显示，但是绑定表的数据字典列，颜色没变化，为何？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26596)
--  作者：wohenguaia
--  发布时间：2012/12/9 13:30:00
--  必填字段背景都红色显示，但是绑定表的数据字典列，颜色没变化，为何？


此主题相关图片如下：未命名.jpg
按此在新窗口浏览图片
如题，附图

 

If e.Col.Name = "xm" Then
If e.Row("xm") = "" Then
e.Style = "样式1"
End If
End If

If e.Col.Name = "xb" Then
If e.Row("xb") = "" Then
e.Style = "样式1"
End If
End If

If e.Col.Name = "szdq" Then
If e.Row("szdq") = "" Then
e.Style = "样式1"
End If
End If


If e.Col.Name = "sjxd" Then
If e.Row("sjxd") = "" Then
e.Style = "样式1"
End If
End If


If e.Col.Name = "szxx" Then
If e.Row("szxx") = "" Then
e.Style = "样式1"
End If
End If


If e.Col.Name = "sjxk" Then
If e.Row("sjxk") Is Nothing Then
e.Style = "样式1"
End If
End If


If e.Col.Name = "tel1" Then
If e.Row("tel1") = "" Then
e.Style = "样式1"
End If
End If

[此贴子已经被作者于2012-12-9 13:31:31编辑过]
--  作者：wohenguaia
--  发布时间：2012/12/9 13:41:00
--  

换成

Select Case e.col.Name
Case "xm"
e.style = "样式1"
Case "xb"
e.style = "样式1"
Case "szdq"
e.style = "样式1"
Case "szxx"
e.style = "样式1"
Case "sjxk"
e.style = "样式1"
Case "sjxd"
e.style = "样式1"
Case "tel1"
e.style = "样式1"
End Select

 

 可以

不过所有行都成了红色

我想只让新添加的背景是红色

 

-----------------------------------------------

 

不过很奇怪，

if e.col.name = "sjxk" then

if e.row("sjxk") = "" then

e.style = "样式1"

end if

end if

这样不行，样式没变

改成select case就行了

 

[此贴子已经被作者于2012-12-9 13:45:37编辑过]
--  作者：lin_hailun
--  发布时间：2012/12/9 13:53:00
--  
还可以精简一下代码

Select Case e.Col.Name
    Case "xxx", "xxxx", "xxxx"
        e.Style = "样式1"
End Select
--  作者：wohenguaia
--  发布时间：2012/12/9 14:26:00
--  

 

完美解决了

Select Case e.col.Name
Case "xm","xb","szdq","szxx","sjxk","sjxd","tel1"
Select Case ""
Case e.Row("xm"),e.Row("szdq"),e.Row("szxx"),e.Row("sjxk"),e.Row("sjxd"),e.Row("tel1")
e.Style = "样式1"
End Select

End Select