多个超级列表框，取数据问题，小白求指教！！

zzz77f

多个超级列表框，取数据问题，小白求指教


账号运行完，进行分类 ，然后删除在线账号里面，已经被分类过的账号 ,请教大神帮忙看看， 应该怎么写

熬夜

  

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

变量名	类 型	静态	数组	备 注
i	整数型
s

s ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (s, 1, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))
超级列表框2.置标题 (s, 2, 超级列表框1.取标题 (超级列表框1.现行选中项, 2))
超级列表框2.置标题 (s, 3, 超级列表框1.取标题 (超级列表框1.现行选中项, 3))
超级列表框2.置标题 (s, 4, 超级列表框1.取标题 (超级列表框1.现行选中项, 4))
超级列表框2.置标题 (s, 5, 超级列表框1.取标题 (超级列表框1.现行选中项, 5))
超级列表框1.删除表项 (超级列表框1.现行选中项)
计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()
计次循环首 (超级列表框2.取表项数 (), i)
超级列表框2.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 s<br /> <br /> s ＝ 超级列表框2.插入表项 (, , , , , )<br /> <br /> <br /> 超级列表框2.置标题 (s, 1, 超级列表框1.取标题 (超级列表框1.现行选中项, 1))<br /> 超级列表框2.置标题 (s, 2, 超级列表框1.取标题 (超级列表框1.现行选中项, 2))<br /> 超级列表框2.置标题 (s, 3, 超级列表框1.取标题 (超级列表框1.现行选中项, 3))<br /> 超级列表框2.置标题 (s, 4, 超级列表框1.取标题 (超级列表框1.现行选中项, 4))<br /> 超级列表框2.置标题 (s, 5, 超级列表框1.取标题 (超级列表框1.现行选中项, 5))<br /> <br /> 超级列表框1.删除表项 (超级列表框1.现行选中项)<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     超级列表框1.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     超级列表框2.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()

LEOONL

  

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

变量名	类 型	静态	数组	备 注
n	整数型

计次循环首 (超级列表框1.取表项数 (), n)
如果真 (超级列表框1.取标题 (超级列表框1.取表项数 () － n, 4) ＝ “完成”)
超级列表框1.删除表项 (超级列表框1.取表项数 () － n)

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .如果真 (超级列表框1.取标题 (超级列表框1.取表项数 () － n, 4) ＝ “完成”)<br />         超级列表框1.删除表项 (超级列表框1.取表项数 () － n)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

zzz77f

LEOONL 发表于 2024-8-5 17:00
[e=0].版本 2
.支持库 iext

..不行啊哥 要把 超级列表框 1 里面的符合条件的置到   另一个里面

evolase

  

子程序名	返回值类型	公开	备 注
_编辑框_搜索关键字_内容被改变

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

判断 (编辑框_搜索关键字.内容 ＝ “”)
超级列表框2.可视 ＝ 假
超级列表框2.可视 ＝ 真
超级列表框2.全部删除 ()
计次循环首 (超级列表框1.取表项数 (), i)
如果真 (寻找文本 (超级列表框1.取标题 (i － 1, 3), 编辑框_搜索关键字.内容, , 假) ≠ -1)
表项索引 ＝ 超级列表框2.插入表项 (, 超级列表框1.取标题 (i － 1, 0), , , , )
超级列表框2.置标题 (表项索引, 1, 超级列表框1.取标题 (i － 1, 1))
超级列表框2.置标题 (表项索引, 2, 超级列表框1.取标题 (i － 1, 2))
超级列表框2.置标题 (表项索引, 3, 超级列表框1.取标题 (i － 1, 3))
超级列表框2.置标题 (表项索引, 4, 超级列表框1.取标题 (i － 1, 4))
超级列表框2.置标题 (表项索引, 5, 超级列表框1.取标题 (i － 1, 5))
超级列表框2.置标题 (表项索引, 6, 超级列表框1.取标题 (i － 1, 6))
超级列表框2.置标题 (表项索引, 7, 超级列表框1.取标题 (i － 1, 7))

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _编辑框_搜索关键字_内容被改变<br /> .局部变量 i, 整数型<br /> .局部变量 表项索引, 整数型<br /> <br /> .判断开始 (编辑框_搜索关键字.内容 ＝ “”)<br />     超级列表框2.可视 ＝ 假<br /> .默认<br />     超级列表框2.可视 ＝ 真<br />     超级列表框2.全部删除 ()<br />     .计次循环首 (超级列表框1.取表项数 (), i)<br />         .如果真 (寻找文本 (超级列表框1.取标题 (i － 1, 3), 编辑框_搜索关键字.内容, , 假) ≠ -1)<br />             表项索引 ＝ 超级列表框2.插入表项 (, 超级列表框1.取标题 (i － 1, 0), , , , )<br />             超级列表框2.置标题 (表项索引, 1, 超级列表框1.取标题 (i － 1, 1))<br />             超级列表框2.置标题 (表项索引, 2, 超级列表框1.取标题 (i － 1, 2))<br />             超级列表框2.置标题 (表项索引, 3, 超级列表框1.取标题 (i － 1, 3))<br />             超级列表框2.置标题 (表项索引, 4, 超级列表框1.取标题 (i － 1, 4))<br />             超级列表框2.置标题 (表项索引, 5, 超级列表框1.取标题 (i － 1, 5))<br />             超级列表框2.置标题 (表项索引, 6, 超级列表框1.取标题 (i － 1, 6))<br />             超级列表框2.置标题 (表项索引, 7, 超级列表框1.取标题 (i － 1, 7))<br />         .如果真结束<br /> <br />     .计次循环尾 ()

补充内容 (2024-8-5 17:28):
我这个是两个超表在一起 然后取搜索关键字用的 ，你可以参考下 你要这个应该发你源码上来 不然怎么改？

LEOONL

zzz77f 发表于 2024-8-5 17:21
..不行啊哥 要把 超级列表框 1 里面的符合条件的置到   另一个里面

  

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

变量名	类 型	静态	数组	备 注
n	整数型
索引	整数型

计次循环首 (超级列表框1.取表项数 (), n)
如果真 (超级列表框1.取标题 (超级列表框1.取表项数 () － n, 4) ＝ “完成”)
索引 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (索引, 0, 到文本 (索引))
超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 1))
超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 2))
超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 3))

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     .如果真 (超级列表框1.取标题 (超级列表框1.取表项数 () － n, 4) ＝ “完成”)<br />         索引 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (索引, 0, 到文本 (索引))<br />         超级列表框2.置标题 (索引, 1, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 1))<br />         超级列表框2.置标题 (索引, 2, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 2))<br />         超级列表框2.置标题 (索引, 3, 超级列表框1.取标题 (超级列表框1.取表项数 () － n, 3))<br />     .如果真结束<br /> <br /> .计次循环尾 ()

Suky

  

变量名	类 型	静态	数组	备 注
n	整数型
超列	超级列表框
状态	文本型
sy	整数型
k	整数型

计次循环首 (超列_在线.取表项数 (), )
n ＝ n ＋ 1  ' 索引递增
状态 ＝ 超列_在线.取标题 (n － 1, 4)
判断 (状态 ＝ “待用”)
超列 ＝ 超列_待用
判断 (状态 ＝ “完成”)
超列 ＝ 超列_完成
判断 (状态 ＝ “异常”)
超列 ＝ 超列_异常
到循环尾 ()  ' 不属于已知三种状态，判断为未运行完
sy ＝ 超列.插入表项 (, , , , , )
超列.置标题 (sy, 0, 到文本 (超列.取表项数 () ＋ 1))  ' 置序数
计次循环首 (超列_在线.取表项数 () － 1, k)  ' 置表项各列标题
超列.置标题 (sy, k, 超列_在线.取标题 (n － 1, k))
计次循环尾 ()
超列_在线.删除表项 (n － 1)  ' 删除在线列表当前已被处理的表项
n ＝ n － 1  ' 删除了表项，索引回退1
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 n, 整数型<br /> .局部变量 超列, 超级列表框<br /> .局部变量 状态, 文本型<br /> .局部变量 sy, 整数型<br /> .局部变量 k, 整数型<br /> <br /> .计次循环首 (超列_在线.取表项数 (), )<br />     n ＝ n ＋ 1  ' 索引递增<br />     状态 ＝ 超列_在线.取标题 (n － 1, 4)<br />     .判断开始 (状态 ＝ “待用”)<br />         超列 ＝ 超列_待用<br />     .判断 (状态 ＝ “完成”)<br />         超列 ＝ 超列_完成<br />     .判断 (状态 ＝ “异常”)<br />         超列 ＝ 超列_异常<br />     .默认<br />         到循环尾 ()  ' 不属于已知三种状态，判断为未运行完<br />     .判断结束<br />     sy ＝ 超列.插入表项 (, , , , , )<br />     超列.置标题 (sy, 0, 到文本 (超列.取表项数 () ＋ 1))  ' 置序数<br />     .计次循环首 (超列_在线.取表项数 () － 1, k)  ' 置表项各列标题<br />         超列.置标题 (sy, k, 超列_在线.取标题 (n － 1, k))<br />     .计次循环尾 ()<br />     超列_在线.删除表项 (n － 1)  ' 删除在线列表当前已被处理的表项<br />     n ＝ n － 1  ' 删除了表项，索引回退1<br /> .计次循环尾 ()

就看着写的，没做测试

也许……
可能……
大概……
没bug吧

zzz77f

Suky 发表于 2024-8-5 17:53
[e=1].版本 2
.支持库 iext

老哥你 哈哈哈哈....

zzz77f

Suky 发表于 2024-8-5 17:53
[e=1].版本 2
.支持库 iext

哥帮我弄一下     一盒玉溪钱   Q 1542487363   看蒙了已经