Question

易语言列表框问题 如图，我已经用列表框读出了数据库edb内容，现在我想 右键单击列表框的项目时

易语言列表框问题

如图，我已经用列表框读出了数据库edb内容，现在我想 右键单击列表框的项目时候弹出菜单，然后删除列表框现行选中项。并且删除数据库对应的内容，不知道说的名不明白，懂的给我指点下 谢谢！！

Answer 1

如果读的时候是按照顺序读的，可以使用超列的表项索引+1得到数据库 对应列表当前选中的记录号，（不按顺序读自己想办法保存记录号 如使用超列表项的值，不保存就祈祷你的数据库中没有重名数据 直接枚举也行 就是效率低 资源占用多）， 执行删除操作

追问

判断（列表框.现行选中项=0）
列表框.删除项目（0）
彻底删除

请问数据库要怎么写对应的记录字段啊

追答

刚才没传成功 现在能明白不？

追问

还是没看到

追答

等会刷新一下就出来了

追问

给我中间加一条代码就知道了，主要不知道怎么写判断之后那条

追答

.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _窗口1_创建完毕

打开 (“.\tmp.edb”, “edb”, , , , , )
_按钮_更新列表_被单击 ()

.子程序 _窗口1_将被销毁

关闭 (“edb”)
删除文件 (“.\tmp.edb”)

.子程序 _删除成员_被选择, , , 这个是弹出的菜单项目
.局部变量 i, 整数型

超级列表框1.删除表项 (超级列表框1.现行选中项)
跳到 (超级列表框1.现行选中项 ＋ 1)
删除 ()
彻底删除 ()

.子程序 _超级列表框1_右键单击表项

.如果真 (超级列表框1.现行选中项 ≠ -1)
弹出菜单 (菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束

.子程序 _按钮_更新列表_被单击
.局部变量 i, 整数型

超级列表框1.全部删除 ()
到首记录 ()
.计次循环首 (取记录数 (), )
i ＝ 超级列表框1.插入表项 (, 读 (“name”), , , 0, )
超级列表框1.置标题 (i, 1, 到文本 (读 (“int”)))
跳过 ()
.计次循环尾 ()