.版本 2 .子程序 _开始_被单击 .局部变量 字段信息, 字段信息, , "0" .局部变量 记录集句柄, 整数型 .局部变量 临时字段信息, 字段信息 .局部变量 i, 整数型 .局部变量 单元, 文本型 开始.禁止 ＝ 真 进度条1.可视 ＝ 真 .计次循环首 (选择列表框1.取项目数 (), i) .如果真 (选择列表框1.是否被选中 (i － 1)) 临时字段信息.名称 ＝ 选择列表框1.取项目文本 (i － 1) 临时字段信息.类型 ＝ #文本型 临时字段信息.最大文本长度 ＝ 20 加入成员 (字段信息, 临时字段信息) .如果真结束 .计次循环尾 () .如果 (外部数据库1.打开 (“ODBC;DBQ=” ＋ 编辑框1.内容 ＋ “;Driver={Microsoft Excel Driver (*.xls)}; ”, )) 记录集句柄 ＝ 外部数据库1.查询 (“select * from [sheet1$]”) ' 此处指定表名 .如果 (记录集句柄 ≠ 0) 外部数据库1.到首记录 (记录集句柄) .判断循环首 (外部数据库1.尾记录后 (记录集句柄) ＝ 假) 加记录 () .计次循环首 (选择列表框1.取项目数 (), i) .如果真 (选择列表框1.是否被选中 (i － 1)) 单元 ＝ 到文本 (外部数据库1.读 (记录集句柄, i)) 写字段 (选择列表框1.取项目文本 (i － 1), , 单元) .如果真结束 .计次循环尾 () 外部数据库1.到后一记录 (记录集句柄) .判断循环尾 () .否则 .如果结束 .否则 信息框 (“连接失败”, 0, ) .如果结束 关闭 (“edb”) 外部数据库1.关闭记录集 (记录集句柄) 外部数据库1.关闭 () 开始.禁止 ＝ 假 分组框3.标题 ＝ “正在导入数据，请稍等……” 进度条1.显示方式 ＝ 0 进度条1.位置 ＝ 10 .计次循环首 (10, ) 进度条1.位置 ＝ 进度条1.位置 ＋ 10 延时 (100) .计次循环尾 () 信息框 (“导入成功！”, #确认取消钮, ) 销毁 ()