主题：老师，帮忙解决一下代码冲突问题

 

If e.DataCol.Name.EndsWith("L") Then
    If e.newvalue > "" Then
        Dim cname As String = e.DataCol.name.Replace("L", "")
        If e.DataTable.DataCols.Contains(cname) Then
            e.DataRow(cname) = val(e.NewValue)
        End If
        cname = e.DataCol.name.Replace("L", "LN")
        If e.DataTable.DataCols.Contains(cname) Then
            e.DataRow(cname) = Math.Log(val(e.NewValue), Math.E)
        End If
    End If
End If

 

Select Case e.DataCol.Name

    Case "高锰酸盐指数","五日生化需氧量","氨氮","石油类","挥发酚","汞","铅","化学需氧量","总磷","铜","锌","氟化物","硒","砷","镉","六价铬","氰化物","阴离子表面活性剂","硫化物","规划类别数值","溶解氧","硫酸盐","氯化物","硝酸盐","铁","锰","三氯甲烷","四氯化碳","三溴甲烷","二氯甲烷","一二二氯乙烷","环氧氯丙烷","氯乙烯","一一二氯乙烯","一二二氯乙烯","三氯乙烯","四氯乙烯","氯丁二烯","六氯丁二烯","苯乙烯","甲醛","乙醛","丙烯醛","三氯乙醛","苯","甲苯","二甲苯","异丙苯","氯苯","一二二氯苯","一四二氯苯","三氯苯","四氯苯","六氯苯","硝基苯","二硝基苯","二四二硝基甲苯","二四六三硝基甲苯","硝基氯苯","二四二硝基氯苯","二四二氯苯酚","二四六三氯苯酚","五氯酚","苯铵","联苯铵","丙烯酰铵","丙烯腈" ,"邻苯二甲酸二丁酯","邻苯二甲酸二酯","水合肼","四乙基铅","吡啶","松节油","苦味酸","丁基黄原酸","活性氯","滴滴涕","林丹","环氧七氯","对硫磷","甲基对硫磷","马拉硫磷","乐果","敌敌畏","敌百虫","内吸磷","百菌清","甲萘威","溴氰菊酯","阿特拉津","苯并芘","甲基汞","多氯联苯","微囊藻毒素","黄磷","钼","钴","铍","硼","锑","镍","钡","钒","钛","铊"

        If e.DataRow.IsNull("高锰酸盐指数")  OrElse e.DataRow.IsNull("五日生化需氧量")  OrElse e.DataRow.IsNull("氨氮") OrElse e.DataRow.IsNull("石油类")  OrElse e.DataRow.IsNull("挥发酚")  OrElse e.DataRow.IsNull("汞")  OrElse e.DataRow.IsNull("铅") OrElse e.DataRow.IsNull("化学需氧量")  OrElse e.DataRow.IsNull("总磷")  OrElse e.DataRow.IsNull("铜")  OrElse e.DataRow.IsNull("锌") OrElse e.DataRow.IsNull("氟化物")  OrElse e.DataRow.IsNull("硒")  OrElse e.DataRow.IsNull("砷")  OrElse e.DataRow.IsNull("镉") OrElse e.DataRow.IsNull("六价铬")  OrElse e.DataRow.IsNull("氰化物") OrElse e.DataRow.IsNull("阴离子表面活性剂")  OrElse e.DataRow.IsNull("硫化物") OrElse e.DataRow.IsNull("溶解氧") OrElse e.DataRow.IsNull("硫酸盐") OrElse e.DataRow.IsNull("氯化物")  OrElse e.DataRow.IsNull("硝酸盐") OrElse e.DataRow.IsNull("铁")  OrElse e.DataRow.IsNull("锰")  OrElse e.DataRow.IsNull("三氯甲烷")  OrElse e.DataRow.IsNull("四氯化碳") OrElse e.DataRow.IsNull("三氯乙烯")  OrElse e.DataRow.IsNull("四氯乙烯")  OrElse e.DataRow.IsNull("苯乙烯")  OrElse e.DataRow.IsNull("甲醛") OrElse e.DataRow.IsNull("苯")  OrElse e.DataRow.IsNull("甲苯")  OrElse e.DataRow.IsNull("乙苯")  OrElse e.DataRow.IsNull("二甲苯") OrElse e.DataRow.IsNull("异丙苯")  OrElse e.DataRow.IsNull("氯苯") OrElse e.DataRow.IsNull("一二二氯苯")  OrElse e.DataRow.IsNull("一四二氯苯") OrElse e.DataRow.IsNull("三氯苯") OrElse e.DataRow.IsNull("硝基苯") OrElse e.DataRow.IsNull("二硝基苯") OrElse e.DataRow.IsNull("硝基氯苯") OrElse e.DataRow.IsNull("邻苯二甲酸二丁酯") OrElse e.DataRow.IsNull("邻苯二甲酸二酯") OrElse e.DataRow.IsNull("滴滴涕") OrElse e.DataRow.IsNull("林丹") OrElse e.DataRow.IsNull("阿特拉津") OrElse e.DataRow.IsNull("苯并芘") OrElse e.DataRow.IsNull("钼") OrElse e.DataRow.IsNull("钴") OrElse e.DataRow.IsNull("铍") OrElse e.DataRow.IsNull("硼") OrElse e.DataRow.IsNull("锑") OrElse e.DataRow.IsNull("镍") OrElse e.DataRow.IsNull("钡") OrElse e.DataRow.IsNull("钒") OrElse e.DataRow.IsNull("铊") OrElse e.DataRow.IsNull("三溴甲烷") OrElse e.DataRow.IsNull("二氯甲烷")  OrElse e.DataRow.IsNull("一二二氯乙烷") OrElse e.DataRow.IsNull("环氧氯丙烷")  OrElse e.DataRow.IsNull("氯乙烯")  OrElse e.DataRow.IsNull("一一二氯乙烯")  OrElse e.DataRow.IsNull("一二二氯乙烯") OrElse e.DataRow.IsNull("氯丁二烯")  OrElse e.DataRow.IsNull("六氯丁二烯")  OrElse e.DataRow.IsNull("乙醛")  OrElse e.DataRow.IsNull("丙烯醛") OrElse e.DataRow.IsNull("三氯乙醛")  OrElse e.DataRow.IsNull("四氯苯")  OrElse e.DataRow.IsNull("六氯苯")  OrElse e.DataRow.IsNull("二四二硝基甲苯") OrElse e.DataRow.IsNull("二四六三硝基甲苯")  OrElse e.DataRow.IsNull("二四二硝基氯苯") OrElse e.DataRow.IsNull("二四二氯苯酚")  OrElse e.DataRow.IsNull("二四六三氯苯酚") OrElse e.DataRow.IsNull("五氯酚") OrElse e.DataRow.IsNull("苯铵") OrElse e.DataRow.IsNull("联苯铵") OrElse e.DataRow.IsNull("丙烯酰铵") OrElse e.DataRow.IsNull("丙烯腈") OrElse e.DataRow.IsNull("水合肼") OrElse e.DataRow.IsNull("四乙基铅") OrElse e.DataRow.IsNull("吡啶") OrElse e.DataRow.IsNull("松节油") OrElse e.DataRow.IsNull("苦味酸") OrElse e.DataRow.IsNull("丁基黄原酸") OrElse e.DataRow.IsNull("活性氯") OrElse e.DataRow.IsNull("环氧七氯") OrElse e.DataRow.IsNull("对硫磷") OrElse e.DataRow.IsNull("甲基对硫磷") OrElse e.DataRow.IsNull("马拉硫磷") OrElse e.DataRow.IsNull("乐果") OrElse e.DataRow.IsNull("敌敌畏") OrElse e.DataRow.IsNull("敌百虫") OrElse e.DataRow.IsNull("内吸磷") OrElse e.DataRow.IsNull("百菌清") OrElse e.DataRow.IsNull("甲萘威") OrElse e.DataRow.IsNull("溴氰菊酯") OrElse e.DataRow.IsNull("甲基汞") OrElse e.DataRow.IsNull("多氯联苯") OrElse e.DataRow.IsNull("微囊藻毒素") OrElse e.DataRow.IsNull("黄磷") OrElse e.DataRow.IsNull("钛") Then Return

        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})

        dic.Add("石油类", new Double() {0.05,0.05,0.5,1,999})

        dic.Add("挥发酚", new Double() {0.002,0.005,0.01,0.1,999})

        dic.Add("汞", new Double() {0.00005,0.0001,0.001,0.001,999})

        dic.Add("铅", new Double() {0.01,0.05,0.05,0.1,999})

        dic.Add("化学需氧量", new Double() {15,20,30,40,999})

        dic.Add("总磷", new Double() {0.025,0.05,0.1,0.2,999})

        dic.Add("铜", new Double() {1.0,1.0,1.0,1.0,999})

        dic.Add("锌", new Double() {1,1,2,2,999})

        dic.Add("氟化物", new Double() {1,1,1.5,1.5,999})

        dic.Add("硒", new Double() {0.01,0.01,0.02,0.02,999})

        dic.Add("砷", new Double() {0.05,0.05,0.1,0.1,999})

        dic.Add("镉", new Double() {0.005,0.005,0.005,0.01,999})

        dic.Add("六价铬", new Double() {0.05,0.05,0.05,0.1,999})

        dic.Add("氰化物", new Double() {0.05,0.2,0.2,0.2,999})

        dic.Add("阴离子表面活性剂", new Double() {0.2,0.2,0.3,0.3,999})

        dic.Add("硫化物", new Double() {0.1,0.2,0.5,1.0,999})

        dic.Add("硫酸盐", new Double() {250,250,250,250,999})

        dic.Add("氯化物", new Double() {250,250,250,250,999})

        dic.Add("硝酸盐", new Double() {10,10,10,10,999})

        dic.Add("铁", new Double() {0.3,0.3,0.3,0.3,999})

        dic.Add("锰", new Double() {0.1,0.1,0.1,0.1,999})

        dic.Add("三氯甲烷", new Double() {0.06,0.06,0.06,0.06,999})

        dic.Add("四氯化碳", new Double() {0.002,0.002,0.002,0.002,999})

        dic.Add("三氯乙烯", new Double() {0.07,0.07,0.07,0.07,999})

        dic.Add("四氯乙烯", new Double() {0.04,0.04,0.04,0.04,999})

        dic.Add("苯乙烯", new Double() {0.02,0.02,0.02,0.02,999})

        dic.Add("甲醛", new Double() {0.9,0.9,0.9,0.9,999})

        dic.Add("苯", new Double() {0.01,0.01,0.01,0.01,999})

        dic.Add("甲苯", new Double() {0.7,0.7,0.7,0.7,999})

        dic.Add("乙苯", new Double() {0.3,0.3,0.3,0.3,999})

        dic.Add("二甲苯", new Double() {0.5,0.5,0.5,0.5,999})

        dic.Add("异丙苯", new Double() {0.25,0.25,0.25,0.25,999})

        dic.Add("氯苯", new Double() {0.3,0.3,0.3,0.3,999})

        dic.Add("一二二氯苯", new Double() {1.0,1.0,1.0,1.0,999})

        dic.Add("一四二氯苯", new Double() {0.3,0.3,0.3,0.3,999})      

        dic.Add("三氯苯", new Double() {0.02,0.02,0.02,0.02,999})

        dic.Add("硝基苯", new Double() {0.017,0.017,0.017,0.017,999})

        dic.Add("二硝基苯", new Double() {0.5,0.5,0.5,0.5,999})

        dic.Add("硝基氯苯", new Double() {0.05,0.05,0.05,0.05,999})

        dic.Add("邻苯二甲酸二丁酯", new Double() {0.003,0.003,0.003,0.003,999})

        dic.Add("邻苯二甲酸二酯", new Double() {0.008,0.008,0.008,0.008,999})

        dic.Add("滴滴涕", new Double() {0.001,0.001,0.001,0.001,999})

        dic.Add("林丹", new Double() {0.002,0.002,0.002,0.002,999})

        dic.Add("阿特拉津", new Double() {0.003,0.003,0.003,0.003,999})

        dic.Add("苯并芘", new Double() {0.0000028,0.0000028,0.0000028,0.0000028,999})

        dic.Add("钼", new Double() {0.07,0.07,0.07,0.07,999})

        dic.Add("钴", new Double() {1.0,1.0,1.0,1.0,999})

        dic.Add("铍", new Double() {0.002,0.002,0.002,0.002,999})

        dic.Add("硼", new Double() {0.5,0.5,0.5,0.5,999})

        dic.Add("锑", new Double() {0.005,0.005,0.005,0.005,999})

        dic.Add("镍", new Double() {0.02,0.02,0.02,0.02,999})

        dic.Add("钡", new Double() {0.7,0.7,0.7,0.7,999})

        dic.Add("钒", new Double() {0.05,0.05,0.05,0.05,999})

        dic.Add("铊", new Double() {0.0001,0.0001,0.0001,0.0001,999})

        dic.Add("三溴甲烷", new Double() {0.1,0.1,0.1,0.1,999})

        dic.Add("二氯甲烷", new Double() {0.02, 0.02, 0.02, 0.02,999})

        dic.Add("一二二氯乙烷", new Double() {0.03,0.03,0.03,0.03,999})

        dic.Add("环氧氯丙烷", new Double() {0.02, 0.02, 0.02, 0.02,999})

        dic.Add("氯乙烯", new Double() {0.005,0.005,0.005,0.005,999})

        dic.Add("一一二氯乙烯", new Double() {0.03,0.03,0.03,0.03,999})

        dic.Add("一二二氯乙烯", new Double() {0.05,0.05,0.05,0.05,999})

        dic.Add("氯丁二烯", new Double() {0.002,0.002,0.002,0.002,999})

        dic.Add("六氯丁二烯", new Double() {0.0006, 0.0006, 0.0006, 0.0006,999})

        dic.Add("乙醛", new Double() {0.05,0.05,0.05,0.05,999})

        dic.Add("丙烯醛", new Double() {0.1,0.1,0.1,0.1,999})

dic.Add("三氯乙醛", new Double() {0.01,0.01,0.01,0.01,999})

dic.Add("四氯苯", new Double() {0.02, 0.02, 0.02, 0.02,999})

dic.Add("六氯苯", new Double() {0.05,0.05,0.05,0.05,999})

dic.Add("二四二硝基甲苯", new Double() {0.0003,0.0003,0.0003,0.0003,999})

dic.Add("二四六三硝基甲苯", new Double() {0.5,0.5,0.5,0.5,999})

dic.Add("二四二硝基氯苯", new Double() {0.5,0.5,0.5,0.5,999})

dic.Add("二四二氯苯酚", new Double() {0.093,0.093,0.093,0.093,999})

dic.Add("二四六三氯苯酚", new Double() {0.2, 0.2, 0.2, 0.2,999})

dic.Add("五氯酚", new Double() {0.09,0.09,0.09,0.09,999})

dic.Add("苯铵", new Double() {0.1,0.1,0.1,0.1,999})

dic.Add("联苯铵", new Double() {0.0002,0.0002,0.0002,0.0002,999})

dic.Add("丙烯酰铵", new Double() {0.0005,0.0005,0.0005,0.0005,999})

dic.Add("丙烯腈", new Double() {0.1,0.1,0.1,0.1,999})

dic.Add("水合肼", new Double() {0.01,0.01,0.01,0.01,999})

dic.Add("四乙基铅", new Double() {0.0001,0.0001,0.0001,0.0001,999})

dic.Add("吡啶", new Double() {0.2, 0.2, 0.2, 0.2,999})

dic.Add("松节油", new Double() {0.2, 0.2, 0.2, 0.2,999})

dic.Add("苦味酸", new Double() {0.5,0.5,0.5,0.5,999})

dic.Add("丁基黄原酸", new Double() {0.005,0.005,0.005,0.005,999})

dic.Add("活性氯", new Double() {0.01,0.01,0.01,0.01,999})

dic.Add("环氧七氯", new Double() {0.0002,0.0002,0.0002,0.0002,999})

dic.Add("对硫磷", new Double() {0.003,0.003,0.003,0.003,999})

dic.Add("甲基对硫磷", new Double() {0.002,0.002,0.002,0.002,999})

dic.Add("马拉硫磷", new Double() {0.05,0.05,0.05,0.05,999})

dic.Add("乐果", new Double() {0.08,0.08,0.08,0.08,999})

dic.Add("敌敌畏", new Double() {0.05,0.05,0.05,0.05,999})

dic.Add("敌百虫", new Double() {0.05,0.05,0.05,0.05,999})

dic.Add("内吸磷", new Double() {0.03,0.03,0.03,0.03,999})

dic.Add("百菌清", new Double() {0.01,0.01,0.01,0.01,999})

dic.Add("甲萘威", new Double() {0.05,0.05,0.05,0.05,999})

dic.Add("溴氰菊酯", new Double() {0.02, 0.02, 0.02, 0.02,999})

dic.Add("甲基汞", new Double() {0.000001, 0.000001, 0.000001, 0.000001,999})

dic.Add("多氯联苯", new Double() {0.00002,0.00002,0.00002,0.00002,999})

dic.Add("微囊藻毒素", new Double() {0.001,0.001,0.001,0.001,999})

dic.Add("黄磷", new Double() {0.003,0.003,0.003,0.003,999})

dic.Add("钛", new Double() {0.1,0.1,0.1,0.1,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 & "(" & e.DataRow(key) & ")"

                            n = n & "," & format((e.DataRow(key)-ary(bz-2)) / ary(bz-2), "0.##")

                        End If

                        Exit For

                    End If

                Next

            Next

            Dim rjy() As Double = new Double() {2,3,5,6,999}

            For i As Integer = 0 To rjy.length - 1

                If e.DataRow("溶解氧") < rjy(i) Then

                    If 6-i > max Then

                        max = 6-i

                    End If

                    If 6-i > bz Then

                         s = s & ",溶解氧" & "(" & e.DataRow("溶解氧") & ")"

                        n = n & "," & format(rjy(6-bz) / e.DataRow("溶解氧"), "0.##")

                    End If

                    Exit For

                End If

            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 = {"", "", "Ⅱ类", "Ⅲ类", "Ⅳ类", "Ⅴ类", "劣Ⅴ类"}

            e.DataRow("规划类别数值") = fdr("类别")

            e.DataRow("规划类别") = ary(fdr("类别"))

        End If

      

End Select

If e.DataCol.Name = "ABC" AndAlso e.DataRow("ABC") = True Then

    Dim nma() As String = {"水源地名称","采样时间"}

    Dim nmb() As String = {"水源地名称","采样时间"}

    Dim dr As DataRow = DataTables("饮用水监测结果统计表").AddNew

    For i As Integer = 0 To nma.Length - 1

        dr(nmb(i)) = e.DataRow(nma(i))

        For Each dc As DataCol In DataTables("饮用水监测结果统计表").DataCols

            dr(dc.Name) = e.DataRow(dc.Name)

        Next

    Next

End If

第一段代码与第二段和第三段代码想冲突，放在表里面提示错误，请老师帮忙指正一下，谢谢

 

实例由于太大，传不上来，麻烦老师帮忙看看

什么冲突？报什么错？

 

请单独做一个例子发上来测试。