主题：如何数据标记

 要写到表事件

 

http://www.foxtable.com/webhelp/scr/1445.htm

 

写到 DataColChanged 事件。

你的代码，只判断小于4、小于3等的情况。你输入正确的值，肯定可以得到2的结果。

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

 

要这样写

 

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

 

Select Case e.DataCol.Name
   
    Case "高锰酸盐指数","五日生化需氧量","氨氮"
       
        If e.DataRow.IsNull("高锰酸盐指数") = False AndAlso e.DataRow.IsNull("五日生化需氧量") = False AndAlso e.DataRow.IsNull("氨氮") = False Then
            Dim lb1, lb2, lb3 As Integer
            If e.DataRow("高锰酸盐指数") <= 4 Then
                lb1 = 2
            ElseIf e.DataRow("高锰酸盐指数") <= 6 Then
                lb1 = 3
            Else If e.DataRow("高锰酸盐指数") <= 10 Then
                lb1 = 4
            Else If e.DataRow("高锰酸盐指数") <= 15 Then
                lb1 = 5
            Else
                lb1 = 6
            End If
           
            if e.DataRow("五日生化需氧量") <= 3 then
                lb2 = 2
            elseif e.DataRow("五日生化需氧量") <= 4 then
                lb2 = 3
            elseif e.DataRow("五日生化需氧量") <= 6 then
                lb2 = 4
            ElseIf e.DataRow("五日生化需氧量") <= 10 Then
                lb2 = 5
            Else
                lb2 = 6
            End If
           
            If e.DataRow("氨氮") <=0.5 Then
                lb3 = 2
            ElseIf e.DataRow("氨氮") <=1 Then
                lb3 = 3
            ElseIf e.DataRow("氨氮") <=1.5 Then
                lb3 = 4
            ElseIf e.DataRow("氨氮") <=2 Then
                lb3 = 5
            Else
                lb3 = 6
            End If
           
            If lb1 > lb2 Then lb2 = lb1
            If lb2 > lb3 Then lb3 = lb2
           
            e.DataRow("断面类别") = lb3
        End If
End Select

Select Case e.DataCol.Name
   
    Case "高锰酸盐指数","五日生化需氧量","氨氮"
       
        If e.DataRow.IsNull("高锰酸盐指数") = False AndAlso e.DataRow.IsNull("五日生化需氧量") = False AndAlso e.DataRow.IsNull("氨氮") = False Then
            Dim lb1, lb2, lb3 As Integer
            If e.DataRow("高锰酸盐指数") <= 4 Then
                lb1 = 2
            ElseIf e.DataRow("高锰酸盐指数") <= 6 Then
                lb1 = 3
            Else If e.DataRow("高锰酸盐指数") <= 10 Then
                lb1 = 4
            Else If e.DataRow("高锰酸盐指数") <= 15 Then
                lb1 = 5
            Else
                lb1 = 6
            End If
           
            if e.DataRow("五日生化需氧量") <= 3 then
                lb2 = 2
            elseif e.DataRow("五日生化需氧量") <= 4 then
                lb2 = 3
            elseif e.DataRow("五日生化需氧量") <= 6 then
                lb2 = 4
            ElseIf e.DataRow("五日生化需氧量") <= 10 Then
                lb2 = 5
            Else
                lb2 = 6
            End If
           
            If e.DataRow("氨氮") <=0.5 Then
                lb3 = 2
            ElseIf e.DataRow("氨氮") <=1 Then
                lb3 = 3
            ElseIf e.DataRow("氨氮") <=1.5 Then
                lb3 = 4
            ElseIf e.DataRow("氨氮") <=2 Then
                lb3 = 5
            Else
                lb3 = 6
            End If
           
            If lb1 > lb2 Then lb2 = lb1
            If lb2 > lb3 Then lb3 = lb2
            

            Dim ary() As String = {"", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ"}

            e.DataRow("断面类别") = ary(lb3)
        End If
End Select

改一下最后两句

 

            Dim ary() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ"}

            e.DataRow("断面类别") = ary(lb3)