DataColChanged事件
Select Case e.DataCol.Name Case "价格" Dim dr As DataRow = DataTables("表A").Find("获取昨日的价格的条件") If dr IsNot Nothing Then If e.NewValue > dr("价格") Then e.DataRow("升降") = "↑" Else '其它情况 End If End IfEnd Select
然后在drawcell设置一下单元格的颜色
http://www.foxtable.com/help/topics/0656.htm