超级列表框模糊查找的问题

kuersky

大大们！我想在超级列表框导入数据后，进行筛选，这些都实现了，但是筛选必须将筛选关键字打全才能筛选，比如表中内容是：三才村2组，是否能实现只打个三字或者三才（也就是关键字只需要输入其中某个字就可以筛选出来），现在筛选关键字必须全部都打上才能筛选出来。请大大们帮我修改源码！谢谢

Suky

  

子程序名	返回值类型	公开	备 注
筛选数据

变量名	类 型	静态	数组	备 注
i	整数型
新位置索引	整数型
类型文本	文本型
列索引	整数型
n	整数型

类型文本 ＝ 组合框_类型.取项目文本 (组合框_类型.现行选中项)
列索引 ＝ -1
计次循环首 (超级列表框_主窗口.取列数 (), i)
列索引 ＝ i － 1
如果真 (超级列表框_主窗口.取列标题 (列索引) ＝ 类型文本)
跳出循环 ()

计次循环尾 ()
如果真 (列索引 ≠ -1)
计次循环首 (超级列表框_主窗口.取表项数 (), i)
如果真 (寻找文本 (超级列表框_主窗口.取标题 (i － 1, 列索引), 编辑框_关键字.内容, , 假) ≠ -1)
超级列表框_主窗口.现行选中项 ＝ i － 1
超级列表框_主窗口.保证显示 (i － 1)
新位置索引 ＝ 超级列表框_筛选.插入表项 (, , , , , )
计次循环首 (超级列表框_主窗口.取列数 (), n)
超级列表框_筛选.置标题 (新位置索引, n － 1, 超级列表框_主窗口.取标题 (i － 1, n － 1))
计次循环尾 ()

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 筛选数据<br /> .局部变量 i, 整数型<br /> .局部变量 新位置索引, 整数型<br /> .局部变量 类型文本, 文本型<br /> .局部变量 列索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 类型文本 ＝ 组合框_类型.取项目文本 (组合框_类型.现行选中项)<br /> 列索引 ＝ -1<br /> .计次循环首 (超级列表框_主窗口.取列数 (), i)<br />     列索引 ＝ i － 1<br />     .如果真 (超级列表框_主窗口.取列标题 (列索引) ＝ 类型文本)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (列索引 ≠ -1)<br />     .计次循环首 (超级列表框_主窗口.取表项数 (), i)<br />         .如果真 (寻找文本 (超级列表框_主窗口.取标题 (i － 1, 列索引), 编辑框_关键字.内容, , 假) ≠ -1)<br />             超级列表框_主窗口.现行选中项 ＝ i － 1<br />             超级列表框_主窗口.保证显示 (i － 1)<br /> <br />             新位置索引 ＝ 超级列表框_筛选.插入表项 (, , , , , )<br />             .计次循环首 (超级列表框_主窗口.取列数 (), n)<br />                 超级列表框_筛选.置标题 (新位置索引, n － 1, 超级列表框_主窗口.取标题 (i － 1, n － 1))<br />             .计次循环尾 ()<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()

你的写法……实在看不下去了，给你改了一下

补充内容 (2024-9-5 00:10):
①取组合框当前选择的项目文本，与列标题比对，列标题与选择项文本一致的，确定此列为要cha询关键词的列

补充内容 (2024-9-5 00:12):
组合框每个项目的文本应该与预备cha询的列标题一致，只需要放置所有可能要cha询的列的列标题

补充内容 (2024-9-5 00:18):
第一个循环没写好，置列索引应该放如果真里面去才行，不然会有bug

kuersky

小白跪求

乐鱼驴

寻找文本（） 你看看大神的写法
求大神帮忙修改一下寻找文本的代码
https://bbs.125.la/forum.php?mod=viewthread&tid=14833364
(出处: 精易论坛)

1425113841

相关模块(黑月, libxl)打包一下

企鹅号525150138

如果真 (寻找文本 (超级列表框_主窗口.取标题 (i － 1, 1), 编辑框_关键字.内容, , 假) ≠ -1)

Suky

  

计次循环首 (超级列表框_主窗口.取列数 (), i)
如果真 (超级列表框_主窗口.取列标题 (i － 1) ＝ 类型文本)
列索引 ＝ i － 1
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .计次循环首 (超级列表框_主窗口.取列数 (), i)<br />     .如果真 (超级列表框_主窗口.取列标题 (i － 1) ＝ 类型文本)<br />         列索引 ＝ i － 1<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

第一个循环应该这样写，这样写的话，如果找不到符合条件的，就不会执行底下的代码