新手求助，超级列表cha询定位，并将cha询到的行添加到新...

888hu

新新手求助，刚刚学习易语言，现在写了个小程序，遇到如下问题，请大神解惑。
在图1输入基金代码点击搜索，图2里面有几百行采集数据，现在搜索到了该基金数据，如何让搜到的行自动显示到第一行，并自动添加到图3的超级列表框中。

搜索代码如下：
.版本 2
.支持库 iext

.子程序 _按钮10_被单击
.局部变量 Seek, 整数型
.局部变量 iiiii, 整数型

.计次循环首 (超级列表框1.取列数 (), iiiii)
    Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , iiiii － 1)  ' 2表示超级列表框的第三列
    .如果真 (Seek ≠ -1)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

.如果 (Seek ＝ -1)
    信息框 (“找不到！”, 0, , )
.否则
    超级列表框1.获取焦点 ()
    超级列表框1.选择表项 (Seek)

888hu

图片无法上传，不知道咋回事

888hu

终于可以上传图了

各位大神帮忙看看，最好有代码，谢谢

补充内容 (2023-5-13 12:51):
修改后发现有个问题，图1里输入关键字后点搜索，图2里搜索到的行不会显示自动上移，而是图2里第一行比如说512100上移到图3超级列表框，非搜索到...

补充内容 (2023-5-13 12:55):
再次搜索比如说512180，那自动添加上移的是512120，非搜索行，请大神给诊断一下。

钥匙key

超级列表框.现行选中项 = 搜索到的索引
超级列表框.保证显示()

lisher

这个帮你解决图2中选中数据上移问题
https://bbs.125.la/forum.php?mod=viewthread&tid=14564171

至于图3中的数据 就可以根据图2中数据上移后的 超级列表取第一行标题信息 置到图3的超级列表中就可以了

钥匙key

  

超级列表框1.现行选中项 = Seek
超级列表框1.保证显示 ()

超级列表框1.现行选中项 = Seek<br /> 超级列表框1.保证显示()

钥匙key

  

计次循环首 (超级列表框1.取列数 (), iiiii)
Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , iiiii － 1)  ' 2表示超级列表框的第三列
如果真 (Seek ≠ -1)
超级列表框1.现行选中项 = Seek
超级列表框1.保证显示 ()
跳出循环 ()

计次循环尾 ()

.计次循环首 (超级列表框1.取列数 (), iiiii)<br />     Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , iiiii － 1)  ' 2表示超级列表框的第三列<br />     .如果真 (Seek ≠ -1)<br />         超级列表框1.现行选中项 = Seek<br />         超级列表框1.保证显示()<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

钥匙key

  

计次循环首 (超级列表框1.取列数 (), iiiii)
Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , iiiii － 1)  ' 2表示超级列表框的第三列
如果真 (Seek ≠ -1)
超级列表框1.现行选中项 = Seek
超级列表框1.保证显示 ()
图3 = 超级列表框2.插入表项 ()
超级列表框2.置标题 (图3,”内容“)
跳出循环 ()

计次循环尾 ()

.计次循环首 (超级列表框1.取列数 (), iiiii)<br />     Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , iiiii － 1)  ' 2表示超级列表框的第三列<br />     .如果真 (Seek ≠ -1)<br />         超级列表框1.现行选中项 = Seek<br />         超级列表框1.保证显示()<br />         图3 = 超级列表框2.插入表项()<br />         超级列表框2.置标题(图3,”内容“)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

麻了。没有看到图3的问题。。

补充内容 (2023-5-12 16:34):
插入后。有索引的情况下想怎么改就怎么改。参考你自己超列1的添加逻辑。没有demo就没有写太详细。

888hu

.版本 2
.支持库 iext

.局部变量 Seek, 整数型
.局部变量 dat, 整数型
.局部变量 局索引索引, 整数型

.计次循环首 (超级列表框1.取列数 (), dat)
    Seek ＝ 超级列表框1.查找表项 (股票代码.内容, 1, , )  ' 2表示超级列表框的第三列
    .如果真 (Seek ≠ -1)
        超级列表框1.现行选中项 ＝ Seek
        超级列表框1.保证显示 (1)
        局索引索引 ＝ 超级列表框2.插入表项 (, , , , , )
        超级列表框2.置标题 (局索引索引, 0, 超级列表框1.取标题 (dat － 1, 0))
        超级列表框2.置标题 (局索引索引, 1, 超级列表框1.取标题 (dat － 1, 1))
        超级列表框2.置标题 (局索引索引, 2, 超级列表框1.取标题 (dat － 1, 2))
        超级列表框2.置标题 (局索引索引, 3, 超级列表框1.取标题 (dat － 1, 3))
        超级列表框1.删除表项 (dat － 1)

        跳出循环 ()
    .如果真结束

.计次循环尾 ()

.如果 (Seek ＝ -1)
    信息框 (“找不到！”, 0, , )
.否则
    超级列表框1.获取焦点 ()
    超级列表框1.选择表项 (Seek)

改后的代码如上