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

1425113841 · 发表于 2020-4-28 11:24:18

做这个东西主要是自己之前在给人写需求的时候，需要用到直接排序多维数组的操作。预算就在论坛找到了这个帖子，模块很好用，感觉很奇妙。

https://bbs.125.la/thread-14551980-1-1.html @走一回

预算这两天无聊，就自己撸了一下代码。来看看效果吧。

补充内容 (2020-4-28 11:26):
什么？你说源码？

补充内容 (2020-4-28 11:40):
在一楼呢

1425113841 · 发表于 2020-4-28 11:25:31

二维数组_表格排序.e (29.23 KB, 下载次数: 1157)

妖月红莲 · 发表于 2025-2-6 13:10:21

感谢分享

13devils · 发表于 2025-1-8 19:58:26

谢谢提供~~~~~~~

zitan · 发表于 2024-12-28 10:36:42

感谢分享

lei5242323 · 发表于 2024-12-6 21:42:25

谢谢分享

小月虫 · 发表于 2024-10-15 01:18:51

感谢老铁！！！！！！！！！！！1

爱书人飞 · 发表于 2024-10-4 13:19:34

感谢分享

安踏 · 发表于 2024-9-19 09:56:30

计次循环首 (超级列表框1.取列数 (), i)

如果真 (被单击列索引 ≠ i － 1 且寻找文本 (超级列表框1.取列标题 (被单击列索引), “↑”, , 假) ≠ -1) ' 不是选择列而且进行过排序

如果 (寻找文本 (超级列表框1.取列标题 (i － 1), “↑”, , 假) ≠ -1)

tempStr ＝子文本替换 (超级列表框1.取列标题 (i － 1), “↑”, “”, , , 真)

tempStr ＝子文本替换 (超级列表框1.取列标题 (i － 1), “↓”, “”, , , 真)

超级列表框1.置列标题 (i － 1, tempStr)

如果真 (被单击列索引 ≠ i － 1 且寻找文本 (超级列表框1.取列标题 (被单击列索引), “↓”, , 假) ≠ -1) ' 不是选择列而且进行过排序

如果 (寻找文本 (超级列表框1.取列标题 (i － 1), “↑”, , 假) ≠ -1)

tempStr ＝子文本替换 (超级列表框1.取列标题 (i － 1), “↑”, “”, , , 真)

tempStr ＝子文本替换 (超级列表框1.取列标题 (i － 1), “↓”, “”, , , 真)

超级列表框1.置列标题 (i － 1, tempStr)

计次循环尾 ()

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

fu1013 · 发表于 2024-9-9 16:39:42

支持开源~！感谢分享

散淡 · 发表于 2024-9-8 00:41:27

支持开源~谢谢分享

17688167987 · 发表于 2024-8-28 20:00:13

谢谢分享！

		自动登录	找回密码
密码			注册

[易语言纯源码] 二维数组排序表格排序超级列表框排序(数值型排序、文本型排序)