例如
datacolchanged事件
Select e.DataCol.Name
Case "第二列","第三列","第四列"
If e.DataRow("第二列") = 0 AndAlso e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0 Then
e.DataRow("第一列") = Color.blue.Toargb
ElseIf e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0 Then
e.DataRow("第一列") = Color.green.Toargb
End If
End Select
其它两种颜色代码自己学着补充上去