超级列表框删除表项问题

易夫

超级列表框.e (6.15 KB, 下载次数: 26)

2020-5-11 00:23 上传

点击文件名下载附件


补充内容 (2020-5-11 00:24):
删除后再添加还是有之前的xx,

补充内容 (2020-5-11 00:25):
怎么样删除某行后不再有之前的    删除行

吃泡面加不起蛋

数组算好，再全部删除，统一插入

易夫

吃泡面加不起蛋 发表于 2020-5-11 01:01
数组算好，再全部删除，统一插入

给个例子吧

请叫我“鸥”

你的骚操作 看到我眼花缭乱，代码是要越简洁越好，你整的那么麻烦干嘛，CPU强大？
.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.如果真 (超级列表框1.现行选中项 ＝ -1)  ' 没有点击任何 选项时
    超级列表框1.删除表项 (0)
    返回 ()
.如果真结束
超级列表框1.删除表项 (超级列表框1.现行选中项)

.子程序 _按钮2_被单击

添加文本 (“1111”, “0”)

.子程序 添加文本
.参数 文本, 文本型
.参数 分隔符, 文本型
.参数 是否保留, 逻辑型, 可空, 默认为假 不保留数据         
.局部变量 文本组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 索引, 整数型

' 文本就不可能是空的，所以先排除 可空选项
.如果真 (是否保留 ＝ 假)
    超级列表框1.全部删除 ()

.如果真结束
数组清零 (文本组)
文本组 ＝ 分割文本 (文本, 分隔符, )
a ＝ 取数组成员数 (文本组)
.如果真 (a ＞ 0)
    .计次循环首 (a, i)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))  ' 你的序号
        超级列表框1.置标题 (索引, 1, 文本组 [i])  ' 实际添加的每行文本
        处理事件 ()
    .计次循环尾 ()
.如果真结束

请叫我“鸥”

.版本 2 .支持库 iext  .程序集 窗口程序集_启动窗口  .子程序 _按钮1_被单击  .如果真 (超级列表框1.现行选中项 ＝ -1)  ' 没有点击任何 选项时     超级列表框1.删除表项 (0)     返回 () .如果真结束 超级列表框1.删除表项 (超级列表框1.现行选中项)  .子程序 _按钮2_被单击  添加文本 (“1111”, “0”)  .子程序 添加文本 .参数 文本, 文本型 .参数 分隔符, 文本型 .参数 是否保留, 逻辑型, 可空, 默认为假 不保留xx           .局部变量 文本组, 文本型, , "0" .局部变量 a, 整数型 .局部变量 i, 整数型 .局部变量 索引, 整数型  ' 文本就不可能是空的，所以先排除 可空选项 .如果真 (是否保留 ＝ 假)     超级列表框1.全部删除 ()  .如果真结束 数组清零 (文本组) 文本组 ＝ 分割文本 (文本, 分隔符, ) a ＝ 取数组成员数 (文本组) .如果真 (a ＞ 0)     .计次循环首 (a, i)         索引 ＝ 超级列表框1.插入表项 (, , , , , )         超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))  ' 你的序号         超级列表框1.置标题 (索引, 1, 文本组 [i])  ' 实际添加的每行文本         处理事件 ()     .计次循环尾 () .如果真结束

请叫我“鸥”

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.如果真 (超级列表框1.现行选中项 ＝ -1)  ' 没有点击任何 选项时
    超级列表框1.删除表项 (0)
    返回 ()
.如果真结束
超级列表框1.删除表项 (超级列表框1.现行选中项)

.子程序 _按钮2_被单击

添加文本 (“1111”, “0”)

.子程序 添加文本
.参数 文本, 文本型
.参数 分隔符, 文本型
.参数 是否保留, 逻辑型, 可空, 默认为假 不保留xx         
.局部变量 文本组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 索引, 整数型

' 文本就不可能是空的，所以先排除 可空选项
.如果真 (是否保留 ＝ 假)
    超级列表框1.全部删除 ()

.如果真结束
数组清零 (文本组)
文本组 ＝ 分割文本 (文本, 分隔符, )
a ＝ 取数组成员数 (文本组)
.如果真 (a ＞ 0)
    .计次循环首 (a, i)
        索引 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))  ' 你的序号
        超级列表框1.置标题 (索引, 1, 文本组 )  ' 实际添加的每行文本
        处理事件 ()
    .计次循环尾 ()
.如果真结束



补充内容 (2020-5-11 01:53):
代码 要越简洁越好

请叫我“鸥”

请叫我“鸥” 发表于 2020-5-11 01:53
.版本 2
.支持库 iext

你整的骚操作，我愣是看不懂

just1975

要删的表项组合成一个数组，再倒排序数组从后往前删！请参考

易夫

吃泡面加不起蛋 发表于 2020-5-11 01:01
数组算好，再全部删除，统一插入

都会说的      

吃泡面加不起蛋

我发现你的问题是列表本身自带3条数组导致的，删掉就行
如果一定要创建窗口就有，

补充内容 (2020-5-25 20:30):
删除见2.jpg，创建窗口就有shuj见3.jpg