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