其他的事情就不用管，没技术含量，但思路是最重要的。
里面的代码都值得新手仔细看下。
.子程序 超级列表框_取数据, 逻辑型, 公开, 只能取一列
.参数 超级列表框, 超级列表框
.参数 要取哪列, 整数型, , 如果为-1则全部取出并用|分割，注明：用作指定报表型列表框中项目所处的列，索引值从 0 开始，如果当前列表框类型不是报表型列表框，提供 0 值即可。如果本参数被省略，默认值为 0 。
.参数 麻袋, 文本型, 数组
.参数 取行数, 整数型, 可空, 默认全部取出
.参数 取出后是否删除, 逻辑型, 可空, 默认删除
.局部变量 计次_表项数, 整数型
.局部变量 计次_列数, 整数型
.局部变量 局数组_列数据, 文本型, , "0"
.局部变量 要取行数, 整数型
清除数组 (麻袋)
.如果 (是否为空 (取行数) ＝ 假)
要取行数 ＝ 取行数
.否则
要取行数 ＝ 超级列表框.取表项数 ()
.如果结束
.如果 (要取哪列 ＝ -1)
.计次循环首 (要取行数, 计次_表项数)
.计次循环首 (超级列表框.取列数 (), 计次_列数)
加入成员 (局数组_列数据, 超级列表框.取标题 (计次_表项数 － 1, 计次_列数 － 1))
.如果真 (取出后是否删除 ＝ 真)
超级列表框.删除表项 (计次_表项数 － 1)
.如果真结束
处理事件 ()
.计次循环尾 ()
计次_列数 ＝ 0
加入成员 (麻袋, 文本_数组合并返回文本 (局数组_列数据, “|”))
清除数组 (局数组_列数据)
处理事件 ()
.计次循环尾 ()
计次_表项数 ＝ 0
.否则
.计次循环首 (要取行数, 计次_表项数)
加入成员 (麻袋, 超级列表框.取标题 (计次_表项数 － 1, 要取哪列))
.如果真 (取出后是否删除 ＝ 真)
超级列表框.删除表项 (计次_表项数 － 1)
.如果真结束
处理事件 ()
.计次循环尾 ()
上一篇 锁屏软件含数据库和强退出