主题：求DataColChanged事件代码

比如

 

Dim str As String = ""

 

If e.DataRow("红细胞") <= 3.50 OrElse e.DataRow("红细胞") >= 5.50  Then str &= "红细胞,"

If e.DataRow("白细胞") <= 4.00 OrElse e.DataRow("白细胞") >= 10.00  Then str &= "白细胞,"

 

e.DataRow("体检有异常3") = "血液分析异常:" & str.trim(",")