主题：甜版：报表模板及表序号等问题请教？

 单独做一个导入按钮。

 Dim f As New Filler
f.SourceTable = DataTables("报名登记表") '指定数据来源
f.DataTable = DataTables("审核合格表") '指定数据接收表
f.Filter = Tables("报名登记表").Filter
f.ExcludeExistValue = True
f.Fill() '填充数据