exui超级列表框怎么读取数据库数据

小吉哥

请教大佬们，exui超级列表框怎么读取数据库数据

  

如果 (主数据库连接1.连接Access (取运行目录 () ＋ “\access\mysqledc.mdb”, “”) ＝ 假)
信息框 (“连接数据失败！”, 0, , )
主记录集1.置连接 (主数据库连接1)
如果 (主记录集1.打开 (“产品资料, #数据表名, ) ＝ 假)
超级列表框1.全部删除 ()

计次循环首 (主记录集1.记录数量, n)
主记录集1.读文本 (“序号, 序号)
主记录集1.读文本 (“产品名称”, 产品名称)
主记录集1.读文本 (“品牌”, 品牌)
主记录集1.读文本 (“型号”, 型号)
主记录集1.读文本 (“规格”, 规格)
主记录集1.读文本 (“类别”, 类别)
主记录集1.读文本 (“供应商”, 供应商)
主记录集1.读文本 (“单位”, 单位)
主记录集1.读文本 (“备注”, 备注)
sy ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 1, 到文本 (序号))
超级列表框1.置标题 (n － 1, 2, 到文本 (产品名称))
超级列表框1.置标题 (n － 1, 3, 到文本 (品牌))
超级列表框1.置标题 (n － 1, 4, 到文本 (型号))
超级列表框1.置标题 (n － 1, 5, 到文本 (规格))
超级列表框1.置标题 (n － 1, 6, 到文本 (类别))
超级列表框1.置标题 (n － 1, 7, 到文本 (供应商))
超级列表框1.置标题 (n － 1, 8, 到文本 (单位))
超级列表框1.置标题 (n － 1, 9, 到文本 (备注))
主记录集1.到下一条 ()
计次循环尾 ()
主记录集1.关闭 ()

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

.版本 2<br /> .支持库 eDB<br /> .支持库 iext<br /> <br /> .如果 (主数据库连接1.连接Access (取运行目录 () ＋ “\access\mysqledc.mdb”, “”) ＝ 假)<br />     信息框 (“连接数据失败！”, 0, , )<br /> .否则<br />     主记录集1.置连接 (主数据库连接1)<br /> .如果结束<br /> .如果 (主记录集1.打开 (“产品资料, #数据表名, ) ＝ 假)<br /> <br /> .否则<br />     超级列表框1.全部删除 ()<br /> .如果结束<br /> <br /> .计次循环首 (主记录集1.记录数量, n)<br />     主记录集1.读文本 (“序号, 序号)<br />     主记录集1.读文本 (“产品名称”, 产品名称)<br />     主记录集1.读文本 (“品牌”, 品牌)<br />     主记录集1.读文本 (“型号”, 型号)<br />     主记录集1.读文本 (“规格”, 规格)<br />     主记录集1.读文本 (“类别”, 类别)<br />     主记录集1.读文本 (“供应商”, 供应商)<br />     主记录集1.读文本 (“单位”, 单位)<br />     主记录集1.读文本 (“备注”, 备注)<br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (n － 1, 1, 到文本 (序号))<br />     超级列表框1.置标题 (n － 1, 2, 到文本 (产品名称))<br />     超级列表框1.置标题 (n － 1, 3, 到文本 (品牌))<br />     超级列表框1.置标题 (n － 1, 4, 到文本 (型号))<br />     超级列表框1.置标题 (n － 1, 5, 到文本 (规格))<br />     超级列表框1.置标题 (n － 1, 6, 到文本 (类别))<br />     超级列表框1.置标题 (n － 1, 7, 到文本 (供应商))<br />     超级列表框1.置标题 (n － 1, 8, 到文本 (单位))<br />     超级列表框1.置标题 (n － 1, 9, 到文本 (备注))<br />     主记录集1.到下一条 ()<br /> .计次循环尾 ()<br /> 主记录集1.关闭 ()

上面这个是[color=rgb(68, 68, 68) !important]易语言超级列表框的写法

EXUI的应该怎么写那 求教

mgut

看我这个帖子吧   
https://bbs.125.la/forum.php?mod ... 14757299&extra=

左胸膛

超级列表框EX.置项目文本 (n － 1, 9, 到文本 (备注))

这样就可以了

小吉哥

mgut 发表于 2023-5-21 07:39
看我这个帖子吧   
https://bbs.125.la/forum.php?mod=viewthread&ti ...

昨天就看了 下载后 缺少文件 无法运行

mgut

小吉哥 发表于 2023-5-21 09:15
昨天就看了 下载后 缺少文件 无法运行

你看超级列表框的写法啊。
超级列表框1.全部删除 ()=超级列表框_日志..删除项目 (-1, )

i ＝ 超级列表框_日志.插入项目 (-1, 1, , 24)
超级列表框1.置标题=超级列表框_日志.置项目文本 (i, 0, 到文本 (i ＋ 1))
超级列表框_日志.置项目文本 (i, 1, 时间)
超级列表框_日志.置项目文本 (i, 2, 类型)
超级列表框_日志.置项目文本 (i, 3, 地址)
超级列表框_日志.置项目文本 (i, 4, 信息)