If e.Col.Name = "特殊单链接" Then
Dim n As Integer = CurrentTable.Rows.Count - 1
For i As Integer = 0 To n
If i > 0 Then
Dim r0 As Row = CurrentTable.Rows(i - 1)
Dim r1 As Row = CurrentTable.Rows(i)
If r0.isnull("特殊单链接") = False AndAlso r1.isnull("特殊单链接") = False Then
If r1("特殊单链接") <> r0("特殊单链接") Then
e.Style = "红字"
End If
End If
End If
Next
End If
上述drawcell代码，我希望达到目标：如果一行的数据与上一行的数据不同(上述红色代码)，那么就用红色来标识此行。但是，实际上达不到这个目表，现在全部数据行都是红色。请问是哪里的问题呢？谢谢。
这个帮助先看几遍：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