Question

易语言超级列表框 如何修改选中项的信息写到EDB数据库（内附图片）

这些源码只能修改最后一个选中项的信息。求高手给我个解答。先谢过了。
.版本 2
.支持库 iext

.如果真 (超级列表框1.现行选中项 ＝ -1)
信息框 (“没有选中要编辑的小号！”, #错误图标, )
返回 ()
.如果真结束
.如果真 (查找 (读 (“编号”) ＝ 小号.编号) ＝ 假)
信息框 (“修改失败!”, #错误图标, )
返回 ()
.如果真结束
.如果真 (修改 (小号.编号, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容, 编辑框6.内容, 编辑框12.内容, 编辑框7.内容, 编辑框8.内容, 编辑框9.内容, 编辑框10.内容, 编辑框11.内容) ＝ 假)
信息框 (“修改失败!”, #错误图标, )
返回 ()
.如果真结束
刷新列表 ()
信息框 (“修改成功!”, 0, )





Answer 1

首先,这个"编号"是程序集变量,整数型,我不知道你"小号.编号"是什么变量,其次要打开数据库.
如果是"修改"一定要点击"超级列表框",通过"子程序 _超级列表框1_左键单击表项",就把"编号"也赋值了,这个值也是数据库中记录号.然后通过记录号修改数据库,再经过"列表刷新 ()"子程序,刷新超级列表框.就是这个思路.
----------------------------------------

.版本 2
.支持库 iext

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

超级列表框1.整行选择 ＝ 真
编辑框1.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
.如果真 (编辑框1.内容 ≠ “”)
编号 ＝ 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))
编辑框2.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
编辑框3.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)
编辑框4.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 4)
编辑框5.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 5)
编辑框6.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 6)
编辑框7.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 7)
编辑框8.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 8)
编辑框9.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 9)
编辑框10.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 10)
编辑框11.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 11)
编辑框12.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 12)
.如果真结束

.子程序 _按钮1_被单击, , , 添加

加记录 (到文本 (取记录数 () ＋ 1), 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容, 编辑框6.内容, 编辑框12.内容, 编辑框7.内容, 编辑框8.内容, 编辑框9.内容, 编辑框10.内容, 编辑框11.内容)
列表刷新 ()

.子程序 _按钮2_被单击, , , 修改

置当前库 ()
到首记录 ()
跳到 (编号)
修改 (, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容, 编辑框5.内容, 编辑框6.内容, 编辑框12.内容, 编辑框7.内容, 编辑框8.内容, 编辑框9.内容, 编辑框10.内容, 编辑框11.内容)
列表刷新 ()

.子程序 _按钮3_被单击, , , 删除

置当前库 ()
.如果真 (信息框 (“真要删除这个小号吗?”, #询问图标 ＋ #确认取消钮, “提示!”) ＝ #确认钮)
跳到 (编号)
删除 ()
彻底删除 ()
到首记录 ()
编号 ＝ 1
.判断循环首 (尾记录后 () ＝ 假)
修改 (到文本 (编号), , , , , , , , , , , , )
编号 ＝ 编号 ＋ 1
跳过 ()
.判断循环尾 ()
.如果真结束
列表刷新 ()