这个帮助先看几遍:http://www.foxtable.com/webhelp/topics/2925.htm
If e.Col.Name = "特殊单链接" Then
If e.Row.index > 0 Then
Dim r0 As Row = e.Table.rows(e.Row.index - 1)
If e.Row.isnull("特殊单链接") = False AndAlso r0.isnull("特殊单链接") = False Then
If e.Row("特殊单链接") <> r0("特殊单链接") Then
e.Style = "红字"
End If
End If
End If
End If