提示什么错?
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