超级列表框排序mysql_超级列表框排序问题+优化

.版本 2

.支持库 iext

.子程序 _超级列表框1_表头被单击

.参数 单击列, 整数型

.局部变量 arr, 文本型, , "0"

.局部变量 n, 整数型

.局部变量 t, 整数型

.局部变量 tt, 整数型

.局部变量 flg, 逻辑型

编辑框3.加入文本 (“正在执行排序中,请稍等...” ＋ #换行符)

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

处理事件 ()

.计次循环首 (超级列表框1.取表项数 () － tt, t)

处理事件 ()

.如果真 (t ≠ 1 且 t ≠ 超级列表框1.取表项数 ())

' 条件

flg ＝ 到整数 (超级列表框1.取标题 (t － 1, 单击列)) ＞ 到整数 (超级列表框1.取标题 (t, 单击列))

.如果真 (单击列 ＝ 3)

flg ＝ 取文本长度 (超级列表框1.取标题 (t － 1, 单击列)) ＜ 取文本长度 (超级列表框1.取标题 (t, 单击列))

.如果真结束

.如果真 (单击列 ＝ 2)

flg ＝ 取月日 (超级列表框1.取标题 (t － 1, 单击列)) ＞ 取月日 (超级列表框1.取标题 (t, 单击列))

.如果真结束

.如果真 (flg)

n ＝ 1

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

.如果真 (n ≠ 1)

加入成员 (arr, 超级列表框1.取标题 (t － 1, n － 1))

超级列表框1.置标题 (t － 1, n － 1, 超级列表框1.取标题 (t, n － 1))

.如果真结束

处理事件 ()

.计次循环尾 ()

n ＝ 1

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

.如果真 (n ≠ 1)

超级列表框1.置标题 (t, n － 1, arr [n － 1])

.如果真结束

处理事件 ()

.计次循环尾 ()

删除成员 (arr, 1, 取数组成员数 (arr))

重定义数组 (arr, 假, 0)

.如果真结束

.如果真结束

.计次循环尾 ()

.计次循环尾 ()

tt ＝ 1

t ＝ 1

.如果真 (单击列 ＝ 3)

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

处理事件 ()

.计次循环首 (超级列表框1.取表项数 () － tt, t)

处理事件 ()

.如果真 (t ≠ 1 且 t ≠ 超级列表框1.取表项数 () 且 t ＞ tt ＋ 1)

' 条件

.如果真 (超级列表框1.取标题 (tt, 单击列) ＝ 超级列表框1.取标题 (t, 单击列))

n ＝ 1

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

.如果真 (n ≠ 1)

加入成员 (arr, 超级列表框1.取标题 (t, n － 1))

超级列表框1.置标题 (t, n － 1, 超级列表框1.取标题 (tt ＋ 1, n － 1))

.如果真结束

处理事件 ()

.计次循环尾 ()

n ＝ 1

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

.如果真 (n ≠ 1)

超级列表框1.置标题 (tt ＋ 1, n － 1, arr [n － 1])

.如果真结束

处理事件 ()

.计次循环尾 ()

删除成员 (arr, 1, 取数组成员数 (arr))

重定义数组 (arr, 假, 0)

.如果真结束

.如果真结束

.计次循环尾 ()

.计次循环尾 ()

.如果真结束

编辑框3.加入文本 (“数据排序已全部完成” ＋ #换行符)

.子程序 取月日, 双精度小数型, 公开

.参数 文本, 文本型

.局部变量 月, 文本型

.局部变量 日, 文本型

月 ＝ 文本_取左边 (文本, “月”)

.如果 (月 ≠ “”)

日 ＝ 文本_取出中间文本 (文本, “月”, “日”)

.如果真 (日 ＝ “”)

日 ＝ 文本_取出中间文本 (文本, “月”, “号”)

.如果真结束

.否则

月 ＝ 文本_取左边 (文本, “.”)

日 ＝ 文本_取右边 (文本, “.”)

.如果结束

.如果真 (月 ＝ “”)

月 ＝ “1”

.如果真结束

.如果真 (日 ＝ “”)

月 ＝ “1”

.如果真结束

返回 (到数值 (时间_到时间戳 (到时间 (“2013-” ＋ 月 ＋ “-” ＋ 日 ＋ “ 12:22:22”))))