Question

易语言超级列表框，如何选中表项？

用易语言加ACCESS数据库做了个查询小软件，如图

超级列表框里面的内容是通过上面的查询按钮，查询数据结果的输出。现在想通过单击超级列表框里面的每一行来让下面的图片框显示不同的图片。
附上源码：
.版本 2
.支持库 iext

.程序集 易语言1
.程序集变量 查询变量, 整数型
.程序集变量 排序变量, 整数型

.子程序 __启动窗口_创建完毕, , , 程序创建完毕

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\db1.mdb”, , , , )
' 在程序创建完毕时就预先打开数据库。
' 这个数据库（db1.mdb）在创建时并没有定义 自动编号 这个主键。
排序变量 ＝ 0
' 用于后面按升降排列。

.子程序 _查询_被单击, , , 按条件查询数据
.局部变量 计次, 整数型
.局部变量 查询结果, 整数型
.局部变量 查询条件, 文本型
.局部变量 记录集, 整数型

查询条件判断 ()
查询结果 ＝ 外部数据库1.查询 (“select * from mydb”)
.如果 (查询变量 ＝ 0)
信息框 (“您还没有填写查询条件呢！”, #信息图标, “查询错误提示”)
返回 ()
.否则
.计次循环首 (超级列表框1.取列数 (), 计次)
超级列表框1.删除列 (超级列表框1.取列数 () － 1)
.计次循环尾 ()
超级列表框1.插入列 (, “ 考题”, 315, , , )
超级列表框1.全部删除 ()
.如果结束
.如果 (查询变量 ＝ 1)
记录集 ＝ 外部数据库1.查询 (“select * from mydb where 考题 like '%” ＋ 编号编辑框.内容 ＋ “%'”)
' like '% %' 表示按 编号 关键字模糊地查询。
.否则

.如果结束
外部数据库1.到首记录 (记录集)
.判断循环首 (外部数据库1.尾记录后 (记录集) ＝ 假)
超级列表框1.插入表项 (, 外部数据库1.读 (记录集, “考题”), , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 1, 外部数据库1.读 (记录集, “考题”))
外部数据库1.到后一记录 (记录集)
.判断循环尾 ()
外部数据库1.关闭记录集 ()

.子程序 查询条件判断, , , 查询条件的判断

.如果 (编号编辑框.内容 ＝ “”)
查询变量 ＝ 0
.否则

.如果结束
.如果 (编号编辑框.内容 ≠ “”)
查询变量 ＝ 1
.否则

.如果结束

.子程序 _超级列表框1_左键单击表项
.参数 选中项内容, 文本型
.参数 查询答案结果, 整数型
.参数 考题, 整数型
.参数 选中项, 整数型

选中项 ＝ 超级列表框1.现行选中项
选中项内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )
信息框 (选中项内容, #信息图标, “查询错误提示”)

Answer 1

给列表导入数据那里设置一下 表项数值 把数据表项id记录到列表里
然后在列表被单击那里 取出id 查数据库 然后找到指定项目关联的图片信息

Answer 2

选中表项，就写 超级列表框1.取标题（超级列表框1.现行选中项,0）