不改变原表结构，加载另外表中关键列数据，如何实现？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题解决了，谢谢老师：

e.Form.Controls("Label1").Text = "正在导入专业录取数据,请稍后..."

Application.DoEvents()

Dim timestart,timeend As Date

timestart=Date.now

DataTables("专业录取线").DeleteFor("")

Dim f As New Filler

f.SourceTable = DataTables("专业数据汇总") '指定数据来源

f.SourceCols = "序号,院校代码,院校名称A,院校名称,专业代码,专业名称,备注,最高分,最低分,平均分,录取年度,差值,文理分科" '指定数据来源列

f.DataTable = DataTables("专业录取线") '指定数据接收表

f.DataCols = "序号,院校代码,院校名称A,院校名称,专业代码,专业名称,备注,最高分,最低分,平均分,录取年度,差值,文理分科" '指定数据接收列

f.Fill() '填充数据

e.Form.Controls("Label1").Text = "各专业录取数据导入完成!"

timeend=Date.now

e.Form.Controls("Label1").text="耗时" & (timeend-timestart).TotalSeconds & "秒"

Messagebox.Show("项目统计完毕,请继续!")

主题：不改变原表结构，加载另外表中关键列数据，如何实现？