主题：用代码复制表的问题

    For Each dc As DataCol In DataTables("当月考勤表2").DataCols

        If dc.Expression = ""

            dr2(dc.Name) = dr1(dc.name)

        end if

    Next