超级列表框获取数据

萢萢醣煮

超级列表框数据获取。总共两个access表，一个是xs 这个表示库存表，一个是xs1这个是另外一个表。
现在通过查询后，超级列表框显示出xs1表的品种名称和编号。
主要是通过点击保存按钮后，xs1表品种通过编号获得xs表对应编号的库存，并在超级列表框后面显示出来！
麻烦大神解决一下，谢谢！


123.rar (880.6 KB, 下载次数: 3)

2022-3-24 17:49 上传

点击文件名下载附件

萢萢醣煮

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 记录集句柄, 整数型
.局部变量 局_编号, 文本型
.局部变量 局_库存数量, 文本型
.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    局_编号 ＝ 超级列表框1.取标题 (i － 1, 2)
    外部数据库2.打开MDB数据库 (取运行目录 () ＋ “\data\xs.mdb”, , , , )
    记录集句柄 ＝ 外部数据库2.查询 (“select * from 仓库 where 编号=” ＋ 局_编号)
    局_库存数量 ＝ 外部数据库2.读 (记录集句柄, “库存数量”)
    超级列表框1.置标题 (i － 1, 3, 局_库存数量)
    外部数据库2.关闭记录集 (记录)
.计次循环尾 ()

萢萢醣煮

已经自行解决！！！

nauhccx

厉害了我的哥

nauhccx

循环获取数据