你这问题不具体啊，从已经加载的数据里头提起，还是从后台提取？
通常这种问题都是从已经加载的数据复制到别的表，但是你一楼的帖子使用的是SQL，似乎又是从后台提取、
从后台：
Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.CommandText = "Select * From {员工信息库} Where 部门 = '人力资源部'"
dt = cmd.ExcuteReader
For Each dr1 As DataRow in dt.DataRows
Dim dr2 As DAtaRow = DataTables(“汇总表").AddNew()
dr2("姓名") = dr1("姓名")
dr2("部门") = dr1("部门")
Next
从已经加载的数据提取，也就是员工信息库的所有行已经加载：
For Each dr1 As DataRow in DataTables(”员工信息库").Select("部门 = '人力资源部'")
Dim dr2 As DAtaRow = DataTables(“汇总表").AddNew()
dr2("姓名") = dr1("姓名")
dr2("部门") = dr1("部门")
Next
[此贴子已经被作者于2011-5-17 19:06:01编辑过]
加好友 
发短信
Post By：2011/5/17 18:22:00 [显示全部帖子]
