主题：如何根据断面设置自动弹出相应的类别，然后根据监测站计算出超标项目及超标倍数？

还有一点，就是这个断面类别是我输入了后面的数据之后，才显示出几类，但是按您做的，就是您修改后的，就是我只要一输入断面名称后，就自动显示规划类别，是对的，但是断面类别也跟着出来了，如何修改一下，断面类别要等后面输入数据后自动再出来类别，谢谢专家指正

Select Case e.DataCol.Name
   
    Case "高锰酸盐指数","五日生化需氧量","氨氮", "规划类别数值"
        Dim dic As new Dictionary(of String, Double())
        dic.Add("高锰酸盐指数", new Double() {4,6,10,15,999})
        dic.Add("五日生化需氧量", new Double() {3,4,6,10,999})
        dic.Add("氨氮", new Double() {0.5,1,1.5,2,999})
        Dim s As String = ""
        Dim n As String = ""
        Dim max As Double = 0
        Dim bz As Integer = e.DataRow("规划类别数值")
        If bz >= 2 Then
            For Each key As String In dic.Keys
                Dim ary() As Double = dic(key)
                For i As Integer = 0 To ary.length - 1
                    If e.DataRow(key) <= ary(i) Then
                        If i+2 > max Then
                            max = i+2
                        End If
                        If i+2 > bz Then
                            s = s & "," & key
                            n = n & "," & format(e.DataRow(key) / ary(bz-2), "0.##")
                        End If
                        Exit For
                    End If
                Next
            Next
        End If
       
        e.DataRow("超标项目") = s.trim(",")
        e.DataRow("超标倍数") = n.trim(",")
        Dim ary1() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}
        e.DataRow("断面类别数值") = max
        e.DataRow("断面类别") = ary1(max)
    Case "断面名称"
        Dim fdr As DataRow = DataTables("名称类别").find("名称 = '" & e.DataRow("断面名称") & "'")
        If fdr IsNot Nothing Then
            Dim ary() As String = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}
            systemready = False
            e.DataRow("规划类别数值") = fdr("类别")
            e.DataRow("规划类别") = ary(fdr("类别"))
            systemready = True
        End If
       
End Select

老师，您好，还有一个特殊的指标，就是溶解氧，它的标准跟其他项目的标准不一样， 一般的标准是从小到大，而溶解氧这个指标是从大到小排列的，就是当溶解氧的值小于2的时候，就是6类，小于3的时候就是5类，小于5的时候就是4类，小于6的时候就是3类，大于6，就是2类，如何加到上面的这段代码中了？谢谢

老师，您好，还有一个特殊的指标，就是溶解氧，它的标准跟其他项目的标准不一样， 一般的标准是从小到大，而溶解氧这个指标是从大到小排列的，就是当溶解氧的值小于2的时候，就是6类，小于3的时候就是5类，小于5的时候就是4类，小于6的时候就是3类，大于6，就是2类，如何加到上面的这段代码中了？谢谢

老师，您好，还有一个特殊的指标，就是溶解氧，它的标准跟其他项目的标准不一样， 一般的标准是从小到大，而溶解氧这个指标是从大到小排列的，就是当溶解氧的值小于2的时候，就是6类，小于3的时候就是5类，小于5的时候就是4类，小于6的时候就是3类，大于6，就是2类，如何加到上面的这段代码中了？谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:地表水超标统计(1).table

谢谢，还有一个问题，就是当表格中还未填入数据的时候，就不参与统计计算，当输入数据的时候，才统计计算，请如何写？

Select Case e.DataCol.Name    

谢谢