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

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