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

lisher

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

是不是考虑换下系统或者电脑
https://www.yingjianzhijia.com/ruanjian/45254.html

海洋之心365

lisher 发表于 2023-6-29 16:46
是不是考虑换下系统或者电脑
https://www.yingjianzhijia.com/ruanjian/45254.html ...

还是不行

u871

你好，简单的写了一下，希望可以帮到你，最后祝你可以找到解决办法。

u871

不好意思，刚才附件上传失败了

海洋之心365

u871 发表于 2023-6-29 17:01
不好意思，刚才附件上传失败了

读不到内容呢

u871

不清楚这是什么原因，我把文件都打包了，这个其实一点也不难，你看看可以按照自己的思路改改，最后祝你可以找到解决办法。

  

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

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

子程序_获取数据 ()

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

数据库连接1.连接 (“Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=” ＋ 取运行目录 () ＋ “\数据.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=” ＋ 取运行目录 () ＋ “\数据.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.关闭 ()

u871

xf702 发表于 2023-6-29 16:37
这是直接读电子表格内容的意思吗？

你好，只是把电子表格当成数据库读取，这种方法也是有弊端的。

海洋之心365

u871 发表于 2023-6-29 17:20
不清楚这是什么原因，我把文件都打包了，这个其实一点也不难，你看看可以按照自己的思路改改，最 ...

我也纳闷了 我不知道为什么就不行   

xf702

u871 发表于 2023-6-29 17:23
你好，只是把电子表格当成数据库读取，这种方法也是有弊端的。

好的，学习了。。。

xf702

海洋之心365 发表于 2023-6-29 17:29
我也纳闷了 我不知道为什么就不行

可以啊，我下载了测试了一下，可以运行。