主题：必填字段背景都红色显示，但是绑定表的数据字典列，颜色没变化，为何？

此主题相关图片如下：未命名.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

换成

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就行了

 

还可以精简一下代码

Select Case e.Col.Name
    Case "xxx", "xxxx", "xxxx"
        e.Style = "样式1"
End Select

 

完美解决了

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