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

用易语言加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.现行选中项, )
信息框 (选中项内容, #信息图标, “查询错误提示”)

举报该文章