复制DataTabe的Rows到另一个DataTable

有时候我们需要将一个DataTable的每一行进行复杂的筛选，然后筛选出来的行要添加到另一个DataTable中：
例如：dt.Rows.Add(dr)   如果dr是来至另一个DataTable,那么会报错：dr已属于另一个DataTable
这是我们需要这样使用：dt.Rows.Add(dr.ItemArray) 
  相当于复制一个数组出来添加到新的DataTable中

下面是例子，将dt1的数据一行一行的复制到dt2中
dim dt1=ExecuteSelect("SELECT
* FROM dual")  
dim dt2=dt1.Clone()

for each dr in dt1.Rows      

    dt2.Rows.Add(dr.ItemArray)

next 

原文地址:http://bbs.delit.cn/thread-649-1-1.html

转载请注明出处:

撰写人:度量科技www.delit.cn