超列数据向下移动的问题。。

xf702

看了 鹏书 的视频，依葫芦画瓢学习超列数据向下移动，总是不成功，不知道问题出在哪里了，请指点一下。

蛀牙

超级列表框上移下移.e (1.04 MB, 下载次数: 2)

2023-12-3 20:10 上传

点击文件名下载附件

补充内容 (2023-12-3 20:10):
可多选一起移动

xf702

蛀牙 发表于 2023-12-3 20:10
补充内容 (2023-12-3 20:10):
可多选一起移动

感谢，我想学习一下，我的错哪里了。。

xf702

  

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

向下移动 (超级列表框1, 超级列表框1.现行选中项, 0)

子程序名	返回值类型	公开	备 注
向下移动
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
索引	整数型
序号	整数型

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

如果真 (索引 ＝ -1)
信息框 (“已经到底了！”, 0, , )
超级列表框.获取焦点 ()
返回 ()

如果真 (是否为空 (序号))
序号 ＝ 1

计次循环首 (超级列表框.取列数 (), i)
如果真 (序号 ≠ i ＋ 1)
文本 ＝ 超级列表框.取标题 (索引, i ＋ 1)
超级列表框.置标题 (索引, i ＋ 1, 超级列表框.取标题 (索引 ＋ 1, i ＋ 1))
超级列表框.置标题 (索引 ＋ 1, i ＋ 1, 文本)

计次循环尾 ()
超级列表框.现行选中项 ＝ 索引 ＋ 1
超级列表框.获取焦点 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 向下移动 (超级列表框1, 超级列表框1.现行选中项, 0)<br /> <br /> <br /> .子程序 向下移动<br /> .参数 超级列表框, 超级列表框<br /> .参数 索引, 整数型<br /> .参数 序号, 整数型, 可空<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> .如果真 (索引 ＝ -1)<br />     信息框 (“已经到底了！”, 0, , )<br />     超级列表框.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (序号))<br />     序号 ＝ 1<br /> .如果真结束<br /> <br /> .计次循环首 (超级列表框.取列数 (), i)<br />     .如果真 (序号 ≠ i ＋ 1)<br />         文本 ＝ 超级列表框.取标题 (索引, i ＋ 1)<br />         超级列表框.置标题 (索引, i ＋ 1, 超级列表框.取标题 (索引 ＋ 1, i ＋ 1))<br />         超级列表框.置标题 (索引 ＋ 1, i ＋ 1, 文本)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框.现行选中项 ＝ 索引 ＋ 1<br /> 超级列表框.获取焦点 ()

xf702

@鹏书 大佬，请帮助。。

鹏书

你这个提示是传的索引=-1才会出现的提示啊 所以就是因为你传的索引是-1啊

xf702

鹏书 发表于 2023-12-3 20:42
你这个提示是传的索引=-1才会出现的提示啊 所以就是因为你传的索引是-1啊

数据下移时，AA列没有反应，后几列数据向下移动正常。当移动到最后一列时，最后一列数据消失。。不知为何。。已经到最后一列了，还需要再次点击  向下移动 按钮后，才出现 到底 提示框。。

补充内容 (2023-12-3 20:51):
AA列数据不会消失，后几列数据消失。。。

鹏书

xf702 发表于 2023-12-3 20:46
数据下移时，AA列没有反应，后几列数据向下移动正常。当移动到最后一列时，最后一列数据消失。。不知为何 ...

所以最后要加一个判断

xf702

鹏书 发表于 2023-12-3 20:58
所以最后要加一个判断

新手，这个真不会，请指点。。

走一回

索引=0   大概就行了