主题：用select提取的行集合如何进行填充?

由于不想用Filler函数填充,所以想问下,用select提取的行集合如何进行填充?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表填充测试.table

提取符合ComboBox1值的数据行集合,填充到跨表填充表里....
提取按钮中代码如下
Dim str As string = e.form.Controls("ComboBox1").Value
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[雇员]= '"& str &"'")
后面的不会了....

For each dr as DataRow in drs
   dim r As DataRow = DataTables("表").AddNew()
   r("某列1") = dr("某列1")
   r("某列2") = dr("某列2")
   ....
Next