以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  drawcell 问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194510)

--  作者:edisontsui
--  发布时间:2024/12/17 17:20:00
--  drawcell 问题
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代码,我希望达到目标:如果一行的数据与上一行的数据不同(上述红色代码),那么就用红色来标识此行。但是,实际上达不到这个目表,现在全部数据行都是红色。请问是哪里的问题呢?谢谢。

--  作者:有点蓝
--  发布时间:2024/12/17 17:33:00
--  
这个帮助先看几遍: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 

--  作者:edisontsui
--  发布时间:2024/12/18 7:53:00
--  
非常感谢。