主题：代码

老师，麻烦帮我看一下这段代码错在哪里呢。谢谢！！

If User.IsRole("付款人") Then

    For Each r As Row In Tables("ZJSQB").GetCheckedRows

      Dim L As String = e.Row("付款单位") 

        Select Case e.Row("付款单位") 

          Case "高科开发建设","高科置业发展","贵州望城投资"

            If r.Isnull("子公司负责人") = False Then

                If R("SFFK") = True Then          

                  MessageBox.show("此单已付过款了,不要重复付款!")

                  Else     

                     Dim nma() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSBM","KSMC","JTCWB1","ZJLB","HTBH","JSGLDW","分项名称","标段" } 'A表数据来源列

                     Dim nmb() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSJM","SKDW","YFKJE","ZJLB","HTBH","FKDW","分项名称","标段" } 'B表数据接收列

                     Dim dr As DataRow = DataTables("FKB").AddNew        

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

                 dr(nmb(i)) = r(nma(i))

             End If

         Case "高科控股集团"

            If r.Isnull("JTCWB3") = False Then

                If R("SFFK") = True Then          

                  MessageBox.show("此单已付过款了,不要重复付款!")

                  Else     

                     Dim nma() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSBM","KSMC","JTCWB1","ZJLB","HTBH","JSGLDW","分项名称","标段" } 'A表数据来源列

                     Dim nmb() As String = { "SQDBH","JHBH","HTMC","XMBM","XMMC","KSJM","SKDW","YFKJE","ZJLB","HTBH","FKDW","分项名称","标段" } 'B表数据接收列

                     Dim dr As DataRow = DataTables("FKB").AddNew        

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

                 dr(nmb(i)) = r(nma(i))

               End If

             End Select

    Next

          Else

      MessageBox.show("资金申请表审批流程未完全通过,不能进行付款!")

   End If

Next    

  Else

      MessageBox.show("你没有付款处理的权限!")

错误代码：Select Case e.Row("付款单位")

老师，下面的代码，提示红色的有错，如果去掉红色的代码，则提示绿色的有错，是写在表事件DataColChange里的，怎么修改呢？

ElseIf e.DataCol.Name = "子公司1" Then

    Dim L As String = e.Row("付款单位") 

    Select Case e.Row("付款单位") 

      Case "高科开发建设","高科置业发展","贵州望城投资"

       Dim K As String = e.DataRow("子公司1")

         Select Case K

          Case "全额同意"

            e.DataRow("子公司2") = e.DataRow("财务2")

        Case "修改后同意"

            e.DataRow("子公司2") = Nothing

        Case Else

            e.DataRow("子公司2") = "0"

        End Select

     Case "高科控股集团"

        Dim K As String = e.DataRow("子公司1")

         Select Case K

          Case "全额同意"

            e.DataRow("子公司2") = e.DataRow("CBB")

        Case "修改后同意"

            e.DataRow("子公司2") = Nothing

        Case Else

            e.DataRow("子公司2") = "0"

        End Select

     End Select

If e.DataCol.Name = "合约" Then

    Dim K As String = e.DataRow("合约")

    Select Case K

        Case "全额同意"

            e.DataRow("cbb") = e.DataRow("实际申请金额")

        Case "修改后同意"

            e.DataRow("cbb") = Nothing

        Case Else

            e.DataRow("cbb") = "0"

    End Select

ElseIf e.DataCol.Name = "财务1" Then

    Dim K As String = e.DataRow("财务1")

    Select Case K

        Case "全额同意"

            e.DataRow("财务2") = e.DataRow("CBB")

        Case "修改后同意"

            e.DataRow("财务2") = Nothing

        Case Else

            e.DataRow("财务2") = "0"

    End Select