是不是代码有问题，cha询速度很慢，帮忙优化一下。。。

xf702

  

子程序名	返回值类型	公开	备 注
长期库cha询

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

置当前库 (“长期库”)
计次循环首 (超级列表框4.取表项数 (), i)
如果真 (寻找文本 (超级列表框4.取标题 (i － 1, 1), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 2), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 3), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 8), 编辑框1.内容, , 假) ＝ -1)
加入成员 (s, i － 1)

计次循环尾 ()
数组排序 (s, 假)
计次循环首 (取数组成员数 (s), i)
超级列表框4.删除表项 (s [i])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 长期库cha询<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 整数型, , "0"<br /> <br /> 置当前库 (“长期库”)<br /> .计次循环首 (超级列表框4.取表项数 (), i)<br />     .如果真 (寻找文本 (超级列表框4.取标题 (i － 1, 1), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 2), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 3), 编辑框1.内容, , 假) ＝ -1 且 寻找文本 (超级列表框4.取标题 (i － 1, 8), 编辑框1.内容, , 假) ＝ -1)<br />         加入成员 (s, i － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 数组排序 (s, 假)<br /> .计次循环首 (取数组成员数 (s), i)<br />     超级列表框4.删除表项 (s <i>)<br /> .计次循环尾 ()

帅气与大侠

  

子程序名	返回值类型	公开	备 注
长期库cha询

变量名	类 型	静态	数组	备 注
计次	整数型
i	整数型
s	整数型		0
编辑框内容	文本型
表项数	双精度小数型

置当前库 (“长期库”)
编辑框1.内容 ＝ 编辑框内容
表项数 ＝ 超级列表框4.取表项数 () － 1
' 事先将超级列表框禁止重画并设置隐藏
' 这样在删除表项、置标题等操作中可以加快速度，减少了重画界面的时间
超级列表框4.禁止重画 ()
超级列表框4.可视 ＝ 假
变量循环首 (表项数, 0, -1, i)
' 删除表项从最后一行开始判断，并删除，就不会出现索引对不上，也减少了加入数组、排序数组的代码时间
如果真 (寻找文本 (超级列表框4.取标题 (i, 1), 编辑框内容, , 假) ＝ -1)
如果真 (寻找文本 (超级列表框4.取标题 (i, 2), 编辑框内容, , 假) ＝ -1)
如果真 (寻找文本 (超级列表框4.取标题 (i, 3), 编辑框内容, , 假) ＝ -1)
如果真 (寻找文本 (超级列表框4.取标题 (i, 8), 编辑框内容, , 假) ＝ -1)
超级列表框4.删除表项 (i)



' 如果列表数量特别多，要删除的数据也特别多，5000以上，可以加入下面的处理事件()命令，可以让窗口不会卡死，缺点是速度会下降一些
处理事件 ()
变量循环尾 ()
超级列表框4.可视 ＝ 真
超级列表框4.禁止重画 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 长期库cha询<br /> .局部变量 计次, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 整数型, , "0"<br /> .局部变量 编辑框内容, 文本型<br /> .局部变量 表项数, 双精度小数型<br /> <br /> 置当前库 (“长期库”)<br /> 编辑框1.内容 ＝ 编辑框内容<br /> 表项数 ＝ 超级列表框4.取表项数 () － 1<br /> <br /> ' 事先将超级列表框禁止重画并设置隐藏<br /> ' 这样在删除表项、置标题等操作中可以加快速度，减少了重画界面的时间<br /> 超级列表框4.禁止重画 ()<br /> 超级列表框4.可视 ＝ 假<br /> <br /> .变量循环首 (表项数, 0, -1, i)<br />     ' 删除表项从最后一行开始判断，并删除，就不会出现索引对不上，也减少了加入数组、排序数组的代码时间<br />     .如果真 (寻找文本 (超级列表框4.取标题 (i, 1), 编辑框内容, , 假) ＝ -1)<br />         .如果真 (寻找文本 (超级列表框4.取标题 (i, 2), 编辑框内容, , 假) ＝ -1)<br />             .如果真 (寻找文本 (超级列表框4.取标题 (i, 3), 编辑框内容, , 假) ＝ -1)<br />                 .如果真 (寻找文本 (超级列表框4.取标题 (i, 8), 编辑框内容, , 假) ＝ -1)<br />                     超级列表框4.删除表项 (i)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br />     ' 如果列表数量特别多，要删除的数据也特别多，5000以上，可以加入下面的处理事件()命令，可以让窗口不会卡死，缺点是速度会下降一些<br />     处理事件 ()<br /> .变量循环尾 ()<br /> 超级列表框4.可视 ＝ 真<br /> 超级列表框4.禁止重画 ()

xf702

cha询时从下到上cha询，有时候像卡帧一样。。。

补充内容 (2023-11-6 21:42):
cha询的方式好像是从下往上的。。。

moys520

上索引