以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将一个datatable中的数据 导入到另外一个Table中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23333)
--  作者：Fotable
--  发布时间：2012/9/9 11:55:00
--  如何将一个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(销售.明细)

 

[此贴子已经被作者于2012-9-9 11:55:49编辑过]
--  作者：jspta
--  发布时间：2012/9/9 12:03:00
--  

 

你是要导入保存还是显示？

仅仅显示的话

tables(销售.明细).DataSource  = dt
--  作者：Fotable
--  发布时间：2012/9/9 12:35:00
--  
当然是要保存的了
--  作者：czy
--  发布时间：2012/9/9 12:42:00
--  
用Filler方法将dt中的数据填充到指定表就可以了吧。
--  作者：jspta
--  发布时间：2012/9/9 12:45:00
--  
以下是引用Fotable在2012-9-9 12:35:00的发言：
当然是要保存的了

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
--  作者：Fotable
--  发布时间：2012/9/9 13:04:00
--  
以下是引用czy在2012-9-9 12:42:00的发言：
用Filler方法将dt中的数据填充到指定表就可以了吧。

filler 是 datatable 到 datatable