主题：如何数据标记

Select Case e.DataCol.Name

    Case "高锰酸盐指数","五日生化需氧量","氨氮"

        If e.DataRow.IsNull("高锰酸盐指数") = False AndAlso e.DataRow.IsNull("五日生化需氧量") = False AndAlso e.DataRow.IsNull("氨氮") = False Then

            If e.DataRow("高锰酸盐指数") <= 4 AndAlso e.DataRow("五日生化需氧量") <= 3 AndAlso e.DataRow("氨氮") <=0.5 Then

                e.DataRow("断面类别") = 2

           If 4<e.DataRow("高锰酸盐指数") <= 6 AndAlso 3<e.DataRow("五日生化需氧量") <= 4 AndAlso 0.5<e.DataRow("氨氮") <= 1 Then

                e.DataRow("断面类别") = 3

 

 If 6<e.DataRow("高锰酸盐指数") <= 10 AndAlso 4<e.DataRow("五日生化需氧量") <= 6 AndAlso 1<e.DataRow("氨氮") <= 1.5 Then

                e.DataRow("断面类别") = 4

 If 10<e.DataRow("高锰酸盐指数") <= 15 AndAlso 6<e.DataRow("五日生化需氧量") <= 10 AndAlso 1.5<e.DataRow("氨氮") <= 2.0 Then

                e.DataRow("断面类别") = 5

If e.DataRow("高锰酸盐指数") >15 AndAlso e.DataRow("五日生化需氧量") >10 AndAlso e.DataRow("氨氮") > 2.0 Then

                e.DataRow("断面类别") = 6

 

                End If

              End If

End If

End If

End If

End If

        

End Select

<!--EndFragment-->