Question

易语言怎么修改超级列表框记录

.版本 2.支持库 iext.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.局部变量 i, 整数型.局部变量 行, 文本型.局部变量 列, 文本型, , "0".局部变量 记录集, 文本型, , "0"记录集 ＝ 取配置节名 (“d:\a.ini”)输出调试文本 (取数组成员数 (记录集)).计次循环首 (取数组成员数 (记录集), i)    行 ＝ 读配置项 (“d:\a.ini”, “记录” ＋ 到文本 (i), “数据”, )    列 ＝ 分割文本 (行, “|”, )    输出调试文本 (列 [1] ＋ “-” ＋ 列 [2] ＋ “-” ＋ 列 [3] ＋ “-” ＋ 列 [4])    超级列表框1.插入表项 (, , , , , )    超级列表框1.置标题 (i － 1, 0, 列 [1])    超级列表框1.置标题 (i － 1, 1, 列 [2])    超级列表框1.置标题 (i － 1, 2, 列 [3])    超级列表框1.置标题 (i － 1, 3, 列 [4]).计次循环尾 ().子程序 _按钮1_被单击载入 (窗口1, , 真).子程序 __启动窗口_将被销毁.局部变量 文本, 文本型.局部变量 row, 整数型.局部变量 行, 文本型.局部变量 列, 文本型, , "0".局部变量 i, 整数型.局部变量 记录集, 文本型, , "0".计次循环首 (超级列表框1.取表项数 (), row)    文本 ＝ 超级列表框1.取标题 (row － 1, 0) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 1) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 2) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 3)    写配置项 (“d:\a.ini”, “记录” ＋ 到文本 (row), “数据”, 文本).计次循环尾 ()记录集 ＝ 取配置节名 (“d:\a.ini”)输出调试文本 (取数组成员数 (记录集)).计次循环首 (取数组成员数 (记录集), i)    行 ＝ 读配置项 (“d:\a.ini”, “记录” ＋ 到文本 (i), “数据”, )    列 ＝ 分割文本 (行, “|”, )    输出调试文本 (列 [1] ＋ “-” ＋ 列 [2] ＋ “-” ＋ 列 [3] ＋ “-” ＋ 列 [4])    超级列表框1.插入表项 (, , , , , )    超级列表框1.置标题 (i － 1, 0, 列 [1])    超级列表框1.置标题 (i － 1, 1, 列 [2])    超级列表框1.置标题 (i － 1, 2, 列 [3])    超级列表框1.置标题 (i － 1, 3, 列 [4]).计次循环尾 ()----------------------------------------------------------------------------------窗口1.版本 2.支持库 iext.程序集 窗口程序集2.子程序 _按钮1_被单击.局部变量 行, 整数型.局部变量 列, 整数型行 ＝ _启动窗口.超级列表框1.取表项数 ().如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “” 且 编辑框4.内容 ≠ “”)    _启动窗口.超级列表框1.插入表项 (, , , , , )    _启动窗口.超级列表框1.置标题 (行, 0, 编辑框1.内容)    _启动窗口.超级列表框1.置标题 (行, 1, 编辑框2.内容)    _启动窗口.超级列表框1.置标题 (行, 2, 编辑框3.内容)    _启动窗口.超级列表框1.置标题 (行, 3, 编辑框4.内容).否则    信息框 (“请认真填写数据”, 0, )-----------------------------------------------------------------------------------我想要  的效果是：选中超级列表框中的一项 后点击 修改记录  调出窗口1界面  并 把选中项中的数据分别加入到 窗口1的编辑框中  ，然后 我可以修改窗口1中各个编辑框的内容 修改完点击窗口1中的按钮后 超级列表框选中项数据变为修

Answer 1

参考方法如下：
.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 _按钮1_被单击
超级列表框1.置表项数值 (超级列表框1.现行选中项(), 编辑框1.内容)

Answer 2

先读出超级列表框选中项的某一列数据作为你要查询数据库的条件值，执行select语句取得你想要的记录行对应的字段值，在载入窗口1时，把查询结果显示到窗口1对应的编辑框中；如果你修改编辑框中的内容，那就用update语句把这个值更新到数据库记录中；卸载窗口1，刷新显示超级列表框项目。