易语言搜索表格中数据到列表框

lijianye69

如果是读取xls格式，应该用易自带的EXCEL2000支持库就行了。

海洋之心365

lisher 发表于 2023-6-29 15:45
不能呀，你不是把里面那个驱动代码改掉了，你重新试试这个

没改任何东西 还是提示 “找不到可安装的ISAM。”

海洋之心365

lisher 发表于 2023-6-29 15:45
不能呀，你不是把里面那个驱动代码改掉了，你重新试试这个

lisher

海洋之心365 发表于 2023-6-29 15:52

WIN+R 在“运行”对话框中输入回车:Regsvr32c:\WINDOWS\system32\msexcl40.dll

海洋之心365

lisher 发表于 2023-6-29 15:56
WIN+R 在“运行”对话框中输入回车:Regsvr32c:\WINDOWS\system32\msexcl40.dll

lisher

海洋之心365 发表于 2023-6-29 16:24

Regsvr32后面要有个空格。。。

u871

你好，大致写了一下，不知道是不是你需要的

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序_获取数据 ()

子程序名	返回值类型	公开	备 注
子程序_获取数据

数据库连接1.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\Users\Administrator\Desktop\数据.xls;”)
记录集1.置连接 (数据库连接1)

子程序名	返回值类型	公开	备 注
_按钮_查找_被单击

变量名	类 型	静态	数组	备 注
局_SQL语句	文本型
局_条码	文本型
局_品名	文本型
局_单价	文本型
局_数量	文本型
局_金额	文本型
局_文本	文本型
局_实收	整数型
局_索引	整数型

超级列表框1.全部删除 ()
局_SQL语句 ＝ “select * from [Sheet1$]”
记录集1.打开 (局_SQL语句, #SQL语句, )
局_文本 ＝ 编辑框_商品编号.内容
计次循环首 (记录集1.记录数量, )
记录集1.读文本 (“条码”, 局_条码)
如果真 (寻找文本 (局_条码, 局_文本, , 假) ≠ -1)
记录集1.读文本 (“品名”, 局_品名)
记录集1.读文本 (“单价”, 局_单价)
记录集1.读文本 (“数量”, 局_数量)
记录集1.读文本 (“金额”, 局_金额)
局_实收 ＝ 局_实收 ＋ 到数值 (局_金额)
局_索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_索引, 0, 到文本 (局_索引))
超级列表框1.置标题 (局_索引, 1, 局_条码)
超级列表框1.置标题 (局_索引, 2, 局_品名)
超级列表框1.置标题 (局_索引, 3, 局_单价)
超级列表框1.置标题 (局_索引, 4, 局_数量)
超级列表框1.置标题 (局_索引, 5, 局_金额)
记录集1.到下一条 ()
计次循环尾 ()
标签_实际收入.标题 ＝ “实际收入：” ＋ 到文本 (局_实收)
记录集1.关闭 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序_获取数据 ()<br /> <br /> <br /> .子程序 子程序_获取数据<br /> <br /> 数据库连接1.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\Users\Administrator\Desktop\数据.xls;”)<br /> 记录集1.置连接 (数据库连接1)<br /> <br /> <br /> .子程序 _按钮_查找_被单击<br /> .局部变量 局_SQL语句, 文本型<br /> .局部变量 局_条码, 文本型<br /> .局部变量 局_品名, 文本型<br /> .局部变量 局_单价, 文本型<br /> .局部变量 局_数量, 文本型<br /> .局部变量 局_金额, 文本型<br /> .局部变量 局_文本, 文本型<br /> .局部变量 局_实收, 整数型<br /> .局部变量 局_索引, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 局_SQL语句 ＝ “select * from [Sheet1$]”<br /> 记录集1.打开 (局_SQL语句, #SQL语句, )<br /> 局_文本 ＝ 编辑框_商品编号.内容<br /> .计次循环首 (记录集1.记录数量, )<br />     记录集1.读文本 (“条码”, 局_条码)<br />     .如果真 (寻找文本 (局_条码, 局_文本, , 假) ≠ -1)<br />         记录集1.读文本 (“品名”, 局_品名)<br />         记录集1.读文本 (“单价”, 局_单价)<br />         记录集1.读文本 (“数量”, 局_数量)<br />         记录集1.读文本 (“金额”, 局_金额)<br />         局_实收 ＝ 局_实收 ＋ 到数值 (局_金额)<br />         局_索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />         超级列表框1.置标题 (局_索引, 0, 到文本 (局_索引))<br />         超级列表框1.置标题 (局_索引, 1, 局_条码)<br />         超级列表框1.置标题 (局_索引, 2, 局_品名)<br />         超级列表框1.置标题 (局_索引, 3, 局_单价)<br />         超级列表框1.置标题 (局_索引, 4, 局_数量)<br />         超级列表框1.置标题 (局_索引, 5, 局_金额)<br />     .如果真结束<br />     记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> 标签_实际收入.标题 ＝ “实际收入：” ＋ 到文本 (局_实收)<br /> 记录集1.关闭 ()

xf702

u871 发表于 2023-6-29 16:29
你好，大致写了一下，不知道是不是你需要的
[e=1].版本 2
.支持库 eDB

这是直接读电子表格内容的意思吗？

海洋之心365

u871 发表于 2023-6-29 16:29
你好，大致写了一下，不知道是不是你需要的
[e=1].版本 2
.支持库 eDB

错误(30): 找不到指定的变量名称“数据库连接1”。

能直接个 e 文件？

海洋之心365

lisher 发表于 2023-6-29 16:29
Regsvr32后面要有个空格。。。