Select e.DataCol.Name
Case "第二列","第三列","第四列"
If e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0
e.DataRow("第一列") = Color.Orange.Toargb
ElseIf e.DataRow("第二列") = 0 AndAlso e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0
e.DataRow("第一列") = Color.green.Toargb
ElseIf e.DataRow("第三列") = 0 AndAlso e.DataRow("第四列") = 0
e.DataRow("第一列") = Color.Orange.Toargb
ElseIf e.DataRow("第四列") > 0
e.DataRow("第一列") = Color.red.Toargb
End If
End Select
加好友 
发短信
Post By：2019/7/29 8:23:00 [只看该作者]
