| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 不改变原表结构，加载另外表中关键列数据，如何实现？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159390) |
| -- 作者：hbfnmxb -- 发布时间：2020/12/24 16:53:00 -- 不改变原表结构，加载另外表中关键列数据，如何实现？ 不改变原表结构，加载另一个表中关键列数据，如：最高分、最低分、平均分、录取年度、院校代码、专业代码等关键列。而原表结构中的其它列，如：最低分排名、平均分排名等要保留。如何实现？ |
| -- 作者：有点蓝 -- 发布时间：2020/12/24 16:57:00 -- 添加临时列：http://www.foxtable.com/webhelp/topics/1428.htm |
| -- 作者：hbfnmxb -- 发布时间：2020/12/25 6:56:00 -- 问题解决了，谢谢老师： 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("项目统计完毕,请继续!") |