在狐狸爸爸帮写的代码下最终达成,在此借花献佛送给需要的新手们。可以用在商品价格浮动中,使人一目了然。
其实代码一看就懂,但自己遇到就不知道该怎么写,唉,惭愧啊~~
If e.Col.name = "第二列" AndAlso e.text >"" Then Dim d As Double = e.Row("第二列") If d > e.Row("第一列") e.Text = e.Text & "↑" e.Style = "样式1" ElseIf d < e.Row("第一列") e.Text = e.Text & "↓" e.Style = "样式2" End IfEnd If
示例图片