一个表中有2列数据，第二列数据和第一列比较，如果大于第一列，则会显示↑并用红色区分，反之则用↓并用绿色区分。

是一段代码的帮助文件，记得以前在帮助文件中看到过，但现在死也找不到。

注：不是DrawCell的那个帮助文件

还望各路高手给个链接

如果是字符列，要显示↑↓没问题吧（颜色麻烦），否则必须用drawcell了，

这个吗？可惜贺老师忘记写实例了，或许我也没找到，不过我想这个应该是DrawCell事件的代码：

http://www.foxtable.com/help/topics/0017.htm

此主题相关图片如下：qq截图20120501073839.jpg

代码如下：

If e.Col.Name = "相差" Then
Dim i As Integer = (e.Row("本次成绩") - e.Row("上次成绩"))
Dim s As String = "(" & e.Row("本次成绩") & "/" & e.Row("上次成绩") & ")"
    If i = 0
        e.Text = "←" & i & s
    ElseIf i > 0
        e.Text = "↑" & i & s
        e.Style = "a"
    Else
        e.Text = "↓" & i & s
        e.Style = "b"
    End If
End If

我把代码改了下，结果出现下图所示错误。然后不停跳框，foxtables就死在那里了。用任务管理器结束任务看到貌似是net.framework的某个错误

不知道代码错在哪里，请指教。我把第一列、第二列设置为字符类型，字符长度为5

代码：

If e.Row("第二列") = e.Row("第一列") Then

   e.Row("第二列") = e.Row("第二列")

Elseif e.Row("第二列") > e.Row("第一列")

   e.Row("第二列") = e.Row("第二列") & “↑”

Else

   e.Row("第二列") = e.Row("第二列") & "↓"

End If

If e.Col.name = "第二列" AndAlso e.text >"" Then
    Dim d As Double = e.Row("第二列")
    If d > e.Row("第一列")
        e.Text = e.Text & "↑"
    ElseIf d < e.Row("第一列")
        e.Text = e.Text & "↓"
    End If
End If

此外设计表的时候，要注意列的类型