主题：[求助]复制

If e.DataCol.Name = "审核"
    If e.DataRow("审核") = True Then
        Dim 数据填充器 As New Filler
        Dim 来源表 As DataTable = DataTables("总表")
        Dim 接收表 As DataTable = DataTables("汇总")
        Dim 列名串1 As String = "编号,项目,项目ID,抄表日期,"
        Dim 列名串2 As String = "_ID,上期,本期,数量,单价,金额"
        For i As Integer = 1 To 3
            数据填充器.SourceTable = 来源表
            数据填充器.SourceCols = 列名串1 & CLNum(i) & "号楼" & 列名串2.Replace(",", "," & CLNum(i) & "号楼_")
            数据填充器.DataTable = 接收表
            数据填充器.DataCols = 列名串1 & "名称" & 列名串2
            数据填充器.Filter = "_Identify=" & Tables("总表").Current("_Identify")
            数据填充器.Fill()
            Tables("汇总").rows(Tables("汇总").Count - 1)("名称_楼号") = i & "号楼"
        Next
    End If
End If