删除表项

深爱者

删除内容2的.e (3.9 KB, 下载次数: 4)

2021-6-24 22:50 上传

点击文件名下载附件

吾名楠

我有个建议，根据条件删除表项的，从下往上删除，这个不会造成表项索引错乱。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
JU计次	整数型
JU表项索引	整数型

' 插入数字
超级列表框1.全部删除 ()
计次循环首 (50, JU计次)
JU表项索引 ＝ 超级列表框1.插入表项 (, 到文本 (JU计次), , , , )
超级列表框1.置标题 (JU表项索引, 1, 到文本 (JU计次 ％ 3))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
JU表项索引	整数型

' 删除有2的表项
变量循环首 (超级列表框1.取表项数 () － 1, 1, -1, JU表项索引)
如果真 (超级列表框1.取标题 (JU表项索引, 1) ＝ “2”)
超级列表框1.删除表项 (JU表项索引)

变量循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
JU表项索引	整数型

' 刷新序号
变量循环首 (1, 超级列表框1.取表项数 () － 1, 1, JU表项索引)
超级列表框1.置标题 (JU表项索引, 0, 到文本 (JU表项索引 ＋ 1))
变量循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 JU计次, 整数型<br /> .局部变量 JU表项索引, 整数型<br /> <br /> ' 插入数字<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (50, JU计次)<br />     JU表项索引 ＝ 超级列表框1.插入表项 (, 到文本 (JU计次), , , , )<br />     超级列表框1.置标题 (JU表项索引, 1, 到文本 (JU计次 ％ 3))<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 JU表项索引, 整数型<br /> <br /> ' 删除有2的表项<br /> .变量循环首 (超级列表框1.取表项数 () － 1, 1, -1, JU表项索引)<br />     .如果真 (超级列表框1.取标题 (JU表项索引, 1) ＝ “2”)<br />         超级列表框1.删除表项 (JU表项索引)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 JU表项索引, 整数型<br /> <br /> ' 刷新序号<br /> .变量循环首 (1, 超级列表框1.取表项数 () － 1, 1, JU表项索引)<br />     超级列表框1.置标题 (JU表项索引, 0, 到文本 (JU表项索引 ＋ 1))<br /> .变量循环尾 ()

l1334733933

笨方法
计次循环取出二列内容
清空超级列表框
计次循环删除你要删的数组
然后在循环加入表项

pwind

  

子程序名	返回值类型	公开	备 注
删除内容2的

变量名	类 型	静态	数组	备 注
i	整数型
当前标题	文本型

计次循环首 (超级列表框.取表项数 (), i)
当前标题 ＝ 超级列表框.取标题 (i － 1, 1)
' 调试输出 (i, 当前标题)
如果真 (当前标题 ＝ “2”)
超级列表框.删除表项 (i － 1)  ' 有问题。越删越乱，表项不对应

超级列表框.保证显示 (i － 1)  ' 实时滚动
计次循环尾 ()
计次循环首 (超级列表框.取表项数 (), i)
超级列表框.置标题 (i － 1, 0, 到文本 (i))  ' 有问题。序号重置
计次循环尾 ()
超级列表框.刷新显示 ()  ' 全部完毕了，能不能把表项按顺序再重置下

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 删除内容2的<br /> .局部变量 i, 整数型<br /> .局部变量 当前标题, 文本型<br /> <br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     当前标题 ＝ 超级列表框.取标题 (i － 1, 1)<br />     ' 调试输出 (i, 当前标题)<br /> <br />     .如果真 (当前标题 ＝ “2”)<br />         超级列表框.删除表项 (i － 1)  ' 有问题。越删越乱，表项不对应<br />     .如果真结束<br /> <br />     超级列表框.保证显示 (i － 1)  ' 实时滚动<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     超级列表框.置标题 (i － 1, 0, 到文本 (i))  ' 有问题。序号重置<br /> .计次循环尾 ()<br /> 超级列表框.刷新显示 ()  ' 全部完毕了，能不能把表项按顺序再重置下

这样不就行了吗

pwind

  

子程序名	返回值类型	公开	备 注
删除内容2的

变量名	类 型	静态	数组	备 注
i	整数型
当前标题	文本型
k	整数型

k ＝ 0
计次循环首 (超级列表框.取表项数 (), i)
k ＝ k ＋ 1
当前标题 ＝ 超级列表框.取标题 (i － 1, 1)
' 调试输出 (i, 当前标题)
如果真 (当前标题 ＝ “2”)
k ＝ k － 1
超级列表框.删除表项 (i － 1)  ' 有问题。越删越乱，表项不对应
到循环尾 ()
超级列表框.置标题 (k － 1, 0, 到文本 (k))
超级列表框.保证显示 (i － 1)  ' 实时滚动
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 删除内容2的<br /> .局部变量 i, 整数型<br /> .局部变量 当前标题, 文本型<br /> .局部变量 k, 整数型<br /> <br /> k ＝ 0<br /> .计次循环首 (超级列表框.取表项数 (), i)<br />     k ＝ k ＋ 1<br />     当前标题 ＝ 超级列表框.取标题 (i － 1, 1)<br />     ' 调试输出 (i, 当前标题)<br />     .如果真 (当前标题 ＝ “2”)<br />         k ＝ k － 1<br />         超级列表框.删除表项 (i － 1)  ' 有问题。越删越乱，表项不对应<br />         到循环尾 ()<br />     .如果真结束<br />     超级列表框.置标题 (k － 1, 0, 到文本 (k))<br />     超级列表框.保证显示 (i － 1)  ' 实时滚动<br /> .计次循环尾 ()

这样吧 效率高些

补充内容 (2021-6-25 00:11):
超级列表框.保证显示 (k － 1)  ' 实时滚动
改成K

欣少

  

子程序名	返回值类型	公开	备 注
删除内容2的

变量名	类 型	静态	数组	备 注
i	整数型
当前标题	文本型
表项	整数型
n	整数型

表项 ＝ 超级列表框.取表项数 ()
计次循环首 (表项, i)
' 超级列表框.置标题 (i － 1, 0, 到文本 (i))  ' 有问题。序号重置
当前标题 ＝ 超级列表框.取标题 (表项 － i, 1)
' 调试输出 (i, 当前标题)
如果真 (当前标题 ＝ “2”)
超级列表框.删除表项 (表项 － i)  ' 有问题。越删越乱，表项不对应

超级列表框.保证显示 (表项 － i)  ' 实时滚动
计次循环尾 ()
' 超级列表框.刷新显示 ()  ' 全部完毕了，能不能把表项按顺序再重置下
计次循环首 (超级列表框.取表项数 (), n)
超级列表框.置标题 (n － 1, 0, 到文本 (n))
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 删除内容2的<br /> .局部变量 i, 整数型<br /> .局部变量 当前标题, 文本型<br /> .局部变量 表项, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 表项 ＝ 超级列表框.取表项数 ()<br /> <br /> .计次循环首 (表项, i)<br />     ' 超级列表框.置标题 (i － 1, 0, 到文本 (i))  ' 有问题。序号重置<br /> <br />     当前标题 ＝ 超级列表框.取标题 (表项 － i, 1)<br />     ' 调试输出 (i, 当前标题)<br /> <br />     .如果真 (当前标题 ＝ “2”)<br />         超级列表框.删除表项 (表项 － i)  ' 有问题。越删越乱，表项不对应<br />     .如果真结束<br /> <br />     超级列表框.保证显示 (表项 － i)  ' 实时滚动<br /> .计次循环尾 ()<br /> ' 超级列表框.刷新显示 ()  ' 全部完毕了，能不能把表项按顺序再重置下<br /> .计次循环首 (超级列表框.取表项数 (), n)<br />     超级列表框.置标题 (n － 1, 0, 到文本 (n))<br /> .计次循环尾 ()

深爱者

914959632 发表于 2021-6-25 01:09
我有个建议，根据条件删除表项的，从下往上删除，这个不会造成表项索引错乱。

[e=4].版本 2

我希望从上到下的依次删除，如果符合条件要删除某行，那下行的序号得重置为正常的序号