主题：按条件调入数据

用数据填充器，在B表中设定一个按钮,写入以下代码即可.
datatables("表B").datarows.clear()
dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "班级,年级,姓名,分数,班级名次"  '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "班级,年级,姓名,分数,排名"  '指定数据接收列
f.Distinct=false
f.Filter="[班级名次]<=2"
f.Fill() '填
Tables("表B").Sort = "年级,班级,排名"