主题：代码

提示什么错？

If User.IsRole("录入人") Then
    For Each r As Row In Tables("htB").GetCheckedRows
        If r("HTLB") = "工程施工合同" Then
            Dim nma() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","HTFYLB","HTJE","LJZFGCK","分项名称","分项概算","标段" } 'A表数据来源列
            Dim nmb() As String = { "XMLB","XMBM","XMMC","XMGS","HTBH","HTMC","KSJM","KSMC","FYLB","HTJE","LJYFJDK","分项名称","分项概算","标段" } 'B表数据接收列
            Dim dr As DataRow = DataTables("XMJDB").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = r(nma(i))
            Next
        End If
    Next
End If