利用易语言编程环境创建一个“Windows窗口程序”。点击菜单“工具”->“支持库配置”项。
在打开的窗口中,找到并勾选“通用对象支持库
2.0版”,并点击“确定”以添加“超级列表框”组件。
接下来在“启动窗口”中绘制如图所示的界面,其中包括一个“外部数据库”和一个“超级列表框”(从扩展面板中可以找到)组件。
然后利用Excel创建一个名为“jiance.xls”的Excel文件。其内容如图所示:
注:将该文件与易语言程序本身放置在同一目录下。
确保选中“启动窗口”,然后为其添加“创建完毕”事件。
接着输入如图所示的易语言代码:
.版本
2
.支持库
iext
.如果真
(外部数据库1.打开
(“ODBCDBQ=”
+
取当前目录
()
+
“\jiance.xlsDriver={Microsoft
Excel
Driver
(*.xls)}DriverId=790FIL=excel
8.0MaxBufferSize=2048MaxScanRows=8PageTimeout=5ReadOnly=0SafeTransactions=0Threads=3UID=adminUserCommitSync=Yes”,
,
)
=
假)
信息框
(“数据库连接失败!”,
#错误图标,
)
返回
()
.如果真结束
查询语句
=
“select
*
from
[Sheet1$]”
记录集
=
外部数据库1.查询
(查询语句)
.如果真
(记录集
=
0)
信息框
(“查询失败!”,
#错误图标,
)
返回
()
.如果真结束
外部数据库1.到首记录
(记录集)
局部_计次
=
1
超级列表框1.插入列
(,
“序号”,
80,
,
,
)
超级列表框1.插入列
(,
“姓名”,
80,
,
,
)
超级列表框1.插入列
(,
“性别”,
80,
,
,
)
超级列表框1.插入列
(,
“年龄”,
80,
,
,
)
.判断循环首
(外部数据库1.尾记录后
(记录集)
=
假)
局部_临时A
=
外部数据库1.读
(记录集,
1)
局部_临时B
=
外部数据库1.读
(记录集,
2)
局部_临时C
=
到文本
(外部数据库1.读
(记录集,
3))
索引
=
超级列表框1.插入表项
(,
,
,
,
,
)
超级列表框1.置标题
(索引,
0,
到文本
(局部_计次))
超级列表框1.置标题
(索引,
1,
局部_临时A)
超级列表框1.置标题
(索引,
2,
局部_临时B)
超级列表框1.置标题
(索引,
3,
局部_临时C)
外部数据库1.到后一记录
(记录集)
局部_计次
=
局部_计次
+
1
.判断循环尾
()
外部数据库1.关闭记录集
()
7
最后点击“运行”按钮,就可以看到易语言成功引用Excel表格中的数据啦。
我想你应该是需要这个功能:
界面放置《超级列表框》
点选超级列表框,在左侧的属性栏,将类型修改成《报表列表框》
下边的是否有检查框选为《真》
【我用心解答,如果解决了您的问题,一定记得采纳额 ,谢谢!】
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)