超级列表框显示内容与edb数据不同步

gaoguolin9 · 发表于 2022-5-19 14:31:59

新手上路（多多指教）.帮忙悬赏  删表项和全部删除  超级列表框显示数据与edb为同步
版本 2
.支持库 iext

.子程序 _删除本表项_被选择
.局部变量内容, 文本型
.局部变量按钮值, 整数型
.局部变量删除表项, 整数型, , "0"
.局部变量 p, 整数型
.局部变量 i, 整数型

i ＝超级列表框1.现行选中项
.如果真 (i ＝ -1)  ' //没有选中项
返回 ()
.如果真结束
内容＝内容＋ “类别：” ＋超级列表框1.取标题 (i, 0) ＋ #换行符
内容＝内容＋ “名称：” ＋超级列表框1.取标题 (i, 1) ＋ #换行符
内容＝内容＋ “网址：” ＋超级列表框1.取标题 (i, 2) ＋ #换行符
内容＝内容＋ “IP地址：” ＋超级列表框1.取标题 (i, 3) ＋ #换行符
内容＝内容＋ “用户：” ＋超级列表框1.取标题 (i, 4) ＋ #换行符
内容＝内容＋ “密码：” ＋超级列表框1.取标题 (i, 5) ＋ #换行符
内容＝内容＋ “日期：” ＋超级列表框1.取标题 (i, 6) ＋ #换行符
内容＝内容＋ “备注：” ＋超级列表框1.取标题 (i, 7)

按钮值＝信息框 (“确定要删除该条数据吗？” ＋ #换行符＋内容, 1 ＋ 32, “删除信息”, )
.计次循环首 (超级列表框1.取表项数 (), p)
.如果真 (超级列表框1.取当前状态图片 (p － 1) ＝ 1)  ' 是否选中
      加入成员 (删除表项, p － 1)
.如果真结束

.计次循环尾 ()
.计次循环首 (取数组成员数 (删除表项), i)
超级列表框1.删除表项 (删除表项 [i] － i ＋ 1)  ' +1是因为i是从1开始算的, -i+1是删除选中的第一项,,,每删除一项,后面的项的索引就会变小,所以要减一,前面删除了多少项就减多少
.计次循环尾 ()
打开 (取运行目录 () ＋ “\信息表”, “信息表”, , , , , )
置当前库 (“信息表”)
到首记录 ()
.计次循环首 (超级列表框1.取表项数 (), p)
.如果真 (超级列表框1.取当前状态图片 (p － 1) ＝ 1)  ' 是否选中
      加入成员 (删除表项, p － 1)
.如果真结束

.计次循环尾 ()
返回 ()

鹏书 · 发表于 2022-5-19 17:13:04

edb同步删除例子

课件_密码备忘录.e (919.01 KB, 下载次数: 7)

gaoguolin9 · 发表于 2022-5-20 08:10:12

nikezhi 发表于 2022-5-19 17:13
edb同步删除例子

不对我的超级列表框可以删除但是删除超级列表框内数据后与edb数据库不同步

		自动登录	找回密码
密码			注册

[精币悬赏] 超级列表框显示内容与edb数据不同步