主题：[求助]关于复制后台数据行

重置列代码改成

 

For Each cdr As DataRow In DataTables("工程合同基础数据").sqlselect("")
    For Each sz As DataRow In DataTables("流程设置").Select("姓名 = '" & User.Name & "'")
        If cdr("进度") = sz("进度") 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)) = cdr(nma(i))
            Next
        End If
    Next
Next

不理解你的意思。你现在不是指定了？如果要修改，直接修改代码。

直接用4楼代码，不可以？