主题：如何将一个datatable中的数据 导入到另外一个Table中

首先我用sql语句生成了一个临时的datatable  dt

Dim cmd As new SQLCommand
Dim dt As DataTable

cmd.CommandText = "Select * from {明细} where 编号 = (Select top 1 编号 from  {销售} where 客户_编号 =  '"& e.datarow("客户_编号") &"' order by 录入时间 desc)"

dt = cmd.ExecuteReader()

然后我想把这个dt里所有的数据（除了编号列不复制，其他列的数据一模一样） 灌装到table中 tables(销售.明细)

tables(销售.明细)

tables(销售.明细).DataSource  = dt

For Each dr As DataRow In dt.datarows
    Dim r As Row = Tables(销售.明细).addnew
    For Each dc As DataCol In dt.datacols
        If dc.name <> "编号" Then
            r(dc.name) = dr(dc.name)
        End If
    Next
Next

Tables(销售.明细).DataTable.Save

filler 是 datatable 到 datatable