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("项目统计完毕,请继续!")
加好友 
发短信
Post By：2020/12/24 16:53:00 [只看该作者]
