取excel表名 (通用对话框1.文件名, 表名数组)
取excel字段名 (数据库连接1, 记录集1, 通用对话框1.文件名, 表名数组 [1], 字段名数组)
初始化列表 (超级列表框1, 字段名数组)
记录集1.打开 (“select * from [” ＋ 表名数组 [1] ＋ “$]”, #SQL语句)
.计次循环首 (记录集1.记录数量, n)
处理事件 ()
.如果真 (n ≥ 数据开始行)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
.计次循环首 (取数组成员数 (字段名数组), n1)
记录集1.读文本 (n1 － 1, 临时文本)
超级列表框1.置标题 (索引, n1 － 1, 临时文本)
.计次循环尾 ()
.如果真结束
记录集1.到下一条 ()
.计次循环尾 ()
上一篇 读取保存超级列表框文本内容
下一篇 透明皮肤模块例程打包分享