超级列表框排序在线等~~隐身的

369063044 · 发表于 2014-1-8 20:53:20

就是比如说我有一窜数据

  序号    串码    姓名    地点
  1    20123    张三    江苏
  2    20133 李四    福建
  3    20113    王二狗  辽宁
~一次类推我想以第二串的数据排序  求写法  我在论坛找到的是一列排序但是其他几列没变  我想跟着一起变的求大侠支招

不懂我意思的可以扣扣 M我下

聚义堂神话 · 发表于 2014-1-8 20:53:21

[e]
.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量数组_串号, 文本型, , "0"
.局部变量数组_文本, 文本型, , "0"
.局部变量表项, 整数型
.局部变量计次, 整数型
.局部变量分割, 文本型, , "0"
.局部变量 i

.计次循环首 (超级列表框1.取表项数 (), 表项)
表项＝表项－ 1
加入成员 (数组_串号, 超级列表框1.取标题 (表项, 1))
加入成员 (数组_文本, 超级列表框1.取标题 (表项, 1) ＋ “----” ＋超级列表框1.取标题 (表项, 2) ＋ “----” ＋超级列表框1.取标题 (表项, 3))
.计次循环尾 ()
文本冒泡排序 (数组_串号, 数组_文本, 单选框1.选中)
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (数组_串号), 计次)
表项＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (表项, 0, 到文本 (表项＋ 1))
分割＝分割文本 (数组_文本 [计次], “----”, )
.计次循环首 (取数组成员数 (分割), i)
      超级列表框1.置标题 (表项, i, 分割 )
.计次循环尾 ()
.计次循环尾 ()

.子程序文本冒泡排序
.参数数据数组A, 文本型, 数组
.参数数据数组B, 文本型, 数组
.参数由小到大, 逻辑型, 可空
.局部变量未比数据数量, 整数型
.局部变量交换变量, 文本型
.局部变量位置变量, 整数型
.局部变量最后位置, 整数型
.局部变量互换标记, 逻辑型

未比数据数量＝取数组成员数 (数据数组A)
.判断循环首 (未比数据数量＞ 0)
最后位置＝ 0
.变量循环首 (1, 未比数据数量－ 1, 1, 位置变量)
      互换标记＝假
      .如果 (由小到大)
         .如果真 (数据数组A [位置变量] ＞数据数组A [位置变量＋ 1])
            互换标记＝真
         .如果真结束

      .否则
         .如果真 (数据数组A [位置变量] ＜数据数组A [位置变量＋ 1])
            互换标记＝真
         .如果真结束

      .如果结束

      .如果真 (互换标记)
         交换变量＝数据数组A [位置变量]
         数据数组A [位置变量] ＝数据数组A [位置变量＋ 1]
         数据数组A [位置变量＋ 1] ＝交换变量
         交换变量＝数据数组B [位置变量]
         数据数组B [位置变量] ＝数据数组B [位置变量＋ 1]
         数据数组B [位置变量＋ 1] ＝交换变量
         最后位置＝位置变量
      .如果真结束

.变量循环尾 ()
未比数据数量＝最后位置
.判断循环尾 ()

[/e]