主题：代码

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

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("你没有付款处理的权限!")