求解超级列表框排序问题

天之痕云之遥

点击表头后第一列的序号保持不动，第二列日期按从小到大，再次点击从大到小，点击第三列地点，把同个地点归到一起，点击第四列事项，把同个事项归到一起，这种怎么弄啊？大牛们

houtian

超级列表框单列排序.e (928.5 KB, 下载次数: 36)

2024-3-11 08:18 上传

点击文件名下载附件

frankiy

二维数组排序表格排序超级列表框排序(数值型排序、文本型排序)

走一回

只排被单击的这一列，还是其他列要联动改变

承易

https://bbs.125.la/forum.php?mod=viewthread&tid=14799578 我的这个帖子中 有排序的解决方法 去下载就行了

天之痕云之遥

houtian 发表于 2024-3-11 08:18

我用的是超级列表框2，我把源码复制过去，把1改成2，结果数据就没了，没找到有啥问题

  

子程序名	返回值类型	公开	备 注
_超级列表框2_表头被单击
参数名	类 型	参考	可空	数组	备 注
被单击列索引	整数型

变量名	类 型	静态	数组	备 注
局_排序	逻辑型
局_列名	文本型
局_数组	文本型		0
i	整数型
j	整数型
k	整数型
局_成员	整数型
局_比较	整数型
局_交换	逻辑型
局_临时	文本型

如果真 (被单击列索引 ≤ 0)
返回 ()
局_列名 ＝ 超级列表框2.取列标题 (被单击列索引)
判断 (寻找文本 (局_列名, “↓”, , 假) ＞ -1)
局_排序 ＝ 假
超级列表框2.置列标题 (被单击列索引, 子文本替换 (局_列名, “↓”, “↑”, , , 真))
判断 (寻找文本 (局_列名, “↑”, , 假) ＞ -1)
局_排序 ＝ 真
超级列表框2.置列标题 (被单击列索引, 子文本替换 (局_列名, “↑”, “↓”, , , 真))
局_排序 ＝ 假
超级列表框2.置列标题 (被单击列索引, 局_列名 ＋ “ ↑”)
计次循环首 (超级列表框2.取列数 () － 1, i)
如果真 (i ≠ 被单击列索引)
超级列表框2.置列标题 (i, 文本_替换 (超级列表框2.取列标题 (i), , , , “ ↑”, “”, “ ↓”, “”))

计次循环尾 ()
重定义数组 (局_数组, 假, 超级列表框2.取表项数 (), 3)
计次循环首 (超级列表框2.取表项数 (), i)
局_数组 [i] [1] ＝ 超级列表框1.取标题 (i － 1, 1)
局_数组 [i] [2] ＝ 超级列表框1.取标题 (i － 1, 2)
局_数组 [i] [3] ＝ 超级列表框1.取标题 (i － 1, 3)
计次循环尾 ()
局_成员 ＝ 取数组下标 (局_数组, )
计次循环首 (局_成员 － 1, i)
计次循环首 (局_成员 － i, j)
局_交换 ＝ 真
局_比较 ＝ 文本比较 (局_数组 [i] [被单击列索引], 局_数组 [i ＋ j] [被单击列索引], 真)
判断 (局_比较 ＜ 0)
局_交换 ＝ 局_排序
判断 (局_比较 ＞ 0)
局_交换 ＝ 取反 (局_排序)


如果真 (局_交换)
计次循环首 (3, k)
局_临时 ＝ 局_数组 [i] [k]
局_数组 [i] [k] ＝ 局_数组 [i ＋ j] [k]
局_数组 [i ＋ j] [k] ＝ 局_临时
计次循环尾 ()

计次循环尾 ()
计次循环尾 ()
超级列表框2.全部删除 ()
计次循环首 (局_成员, i)
k ＝ 超级列表框2.插入表项 (, 到文本 (i), , , , )
计次循环首 (3, j)
超级列表框2.置标题 (k, j, 局_数组 [i] [j])
计次循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框2_表头被单击<br /> .参数 被单击列索引, 整数型<br /> .局部变量 局_排序, 逻辑型<br /> .局部变量 局_列名, 文本型<br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 局_成员, 整数型<br /> .局部变量 局_比较, 整数型<br /> .局部变量 局_交换, 逻辑型<br /> .局部变量 局_临时, 文本型<br /> <br /> .如果真 (被单击列索引 ≤ 0)<br />     返回 ()<br /> .如果真结束<br /> 局_列名 ＝ 超级列表框2.取列标题 (被单击列索引)<br /> .判断开始 (寻找文本 (局_列名, “↓”, , 假) ＞ -1)<br />     局_排序 ＝ 假<br />     超级列表框2.置列标题 (被单击列索引, 子文本替换 (局_列名, “↓”, “↑”, , , 真))<br /> .判断 (寻找文本 (局_列名, “↑”, , 假) ＞ -1)<br />     局_排序 ＝ 真<br />     超级列表框2.置列标题 (被单击列索引, 子文本替换 (局_列名, “↑”, “↓”, , , 真))<br /> .默认<br />     局_排序 ＝ 假<br />     超级列表框2.置列标题 (被单击列索引, 局_列名 ＋ “ ↑”)<br /> .判断结束<br /> .计次循环首 (超级列表框2.取列数 () － 1, i)<br />     .如果真 (i ≠ 被单击列索引)<br />         超级列表框2.置列标题 (i, 文本_替换 (超级列表框2.取列标题 (i), , , , “ ↑”, “”, “ ↓”, “”))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 重定义数组 (局_数组, 假, 超级列表框2.取表项数 (), 3)<br /> .计次循环首 (超级列表框2.取表项数 (), i)<br />     局_数组 <i> [1] ＝ 超级列表框1.取标题 (i － 1, 1)<br />     局_数组 <i> [2] ＝ 超级列表框1.取标题 (i － 1, 2)<br />     局_数组 <i> [3] ＝ 超级列表框1.取标题 (i － 1, 3)<br /> .计次循环尾 ()<br /> 局_成员 ＝ 取数组下标 (局_数组, )<br /> .计次循环首 (局_成员 － 1, i)<br />     .计次循环首 (局_成员 － i, j)<br />         局_交换 ＝ 真<br />         局_比较 ＝ 文本比较 (局_数组 <i> [被单击列索引], 局_数组 [i ＋ j] [被单击列索引], 真)<br />         .判断开始 (局_比较 ＜ 0)<br />             局_交换 ＝ 局_排序<br />         .判断 (局_比较 ＞ 0)<br />             局_交换 ＝ 取反 (局_排序)<br />         .默认<br /> <br />         .判断结束<br />         .如果真 (局_交换)<br />             .计次循环首 (3, k)<br />                 局_临时 ＝ 局_数组 <i> [k]<br />                 局_数组 <i> [k] ＝ 局_数组 [i ＋ j] [k]<br />                 局_数组 [i ＋ j] [k] ＝ 局_临时<br />             .计次循环尾 ()<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 超级列表框2.全部删除 ()<br /> .计次循环首 (局_成员, i)<br />     k ＝ 超级列表框2.插入表项 (, 到文本 (i), , , , )<br />     .计次循环首 (3, j)<br />         超级列表框2.置标题 (k, j, 局_数组 <i> [j])<br />     .计次循环尾 ()<br /> .计次循环尾 ()

frankiy

走一回 发表于 2024-3-11 08:36
只排被单击的这一列，还是其他列要联动改变

感谢你提供。我是在论坛里保存的学习例子，没注意是哪位原创。

天之痕云之遥

天之痕云之遥 发表于 2024-3-11 19:07
我用的是超级列表框2，我把源码复制过去，把1改成2，结果数据就没了，没找到有啥问题
[e=1].版 ...

解决了，还有几处没改到，谢谢了，大神