超级列表框 自定义排版 归类 统计

御风软件

上面是效果图，下面是源码，再下面是源码附件
这东西很简单，就是很费时间，帮问答区一个人解决问题做的
就分享到这里吧，让更多的新手朋友也能学习下，初步代码，仅供学习实现原理
可惜的是，当我写完的时候，楼主已经采纳别人了，唉，白浪费时间了呢，能否给点好评什么的安慰下呢
我也下载了那位朋友的源码，用了精易模块的去重复，代码看起来也整洁，而我写的是这个是没有用什么模块的，纯代码

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
表项数量	整数型
对象	购买信息		0
N	整数型
序号	整数型
索引	整数型
开始位置	整数型
上购买人	文本型
下购买人	文本型
购买人	文本型
插入索引	整数型
临时索引	整数型
总价	整数型

表项数量 ＝ 超级列表框1.取表项数 ()
重定义数组 (对象, 假, 表项数量)
计次循环首 (表项数量, N)
对象 [N].购买人 ＝ 超级列表框1.取标题 (N － 1, 1)
对象 [N].物品名称 ＝ 超级列表框1.取标题 (N － 1, 2)
对象 [N].金额 ＝ 超级列表框1.取标题 (N － 1, 3)
对象 [N].总价 ＝ 超级列表框1.取标题 (N － 1, 4)
计次循环尾 ()
计次循环首 (表项数量, N)
索引 ＝ 超级列表框2.查找表项 (对象 [N].购买人, 0, 真, 1)
判断 (索引 ＝ -1)
索引 ＝ 超级列表框2.插入表项 (, , , , , )
序号 ＝ 序号 ＋ 1
超级列表框2.置标题 (索引, 0, 到文本 (序号))
超级列表框2.置标题 (索引, 1, 对象 [N].购买人)
超级列表框2.置标题 (索引, 2, 对象 [N].物品名称)
超级列表框2.置标题 (索引, 3, 对象 [N].金额)
超级列表框2.置标题 (索引, 4, 对象 [N].总价)
索引 ＝ 超级列表框2.插入表项 (索引 ＋ 1, , , , , )
超级列表框2.置标题 (索引, 1, 对象 [N].购买人)
超级列表框2.置标题 (索引, 2, 对象 [N].物品名称)
超级列表框2.置标题 (索引, 3, 对象 [N].金额)
超级列表框2.置标题 (索引, 4, 对象 [N].总价)

计次循环尾 ()
索引 ＝ 1
循环判断首 ()
判断 (超级列表框2.取标题 (索引, 0) ≠ “”)
总价 ＝ 0
购买人 ＝ 超级列表框2.取标题 (索引 － 1, 1)
插入索引 ＝ 超级列表框2.插入表项 (索引, “购买人”, , , , )
超级列表框2.置标题 (插入索引, 1, 购买人)
超级列表框2.置标题 (插入索引, 2, “总需付款金额”)
临时索引 ＝ 插入索引
计次循环首 (插入索引, N)
临时索引 ＝ 插入索引 － N
总价 ＝ 总价 ＋ 到整数 (超级列表框2.取标题 (临时索引, 3))
判断 (超级列表框2.取标题 (临时索引, 0) ＝ “”)
超级列表框2.置标题 (临时索引, 1, “”)
跳出循环 ()

计次循环尾 ()
超级列表框2.置标题 (插入索引, 3, 到文本 (总价))
超级列表框2.插入表项 (插入索引 ＋ 1, , , , , )
索引 ＝ 索引 ＋ 3
索引 ＝ 索引 ＋ 1

循环判断尾 (索引 ＜ 超级列表框2.取表项数 ())
总价 ＝ 0
索引 ＝ 超级列表框2.取表项数 () － 1
购买人 ＝ 超级列表框2.取标题 (索引, 1)
插入索引 ＝ 超级列表框2.插入表项 (, “购买人”, , , , )
超级列表框2.置标题 (插入索引, 1, 购买人)
超级列表框2.置标题 (插入索引, 2, “总需付款金额”)
临时索引 ＝ 插入索引
计次循环首 (插入索引, N)
临时索引 ＝ 插入索引 － N
总价 ＝ 总价 ＋ 到整数 (超级列表框2.取标题 (临时索引, 3))
判断 (超级列表框2.取标题 (临时索引, 0) ＝ “”)
超级列表框2.置标题 (临时索引, 1, “”)
跳出循环 ()

计次循环尾 ()
超级列表框2.置标题 (插入索引, 3, 到文本 (总价))

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 表项数量, 整数型<br /> .局部变量 对象, 购买信息, , "0"<br /> .局部变量 N, 整数型<br /> .局部变量 序号, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 开始位置, 整数型<br /> .局部变量 上购买人, 文本型<br /> .局部变量 下购买人, 文本型<br /> .局部变量 购买人, 文本型<br /> .局部变量 插入索引, 整数型<br /> .局部变量 临时索引, 整数型<br /> .局部变量 总价, 整数型<br /> <br /> 表项数量 ＝ 超级列表框1.取表项数 ()<br /> 重定义数组 (对象, 假, 表项数量)<br /> .计次循环首 (表项数量, N)<br />     对象 [N].购买人 ＝ 超级列表框1.取标题 (N － 1, 1)<br />     对象 [N].物品名称 ＝ 超级列表框1.取标题 (N － 1, 2)<br />     对象 [N].金额 ＝ 超级列表框1.取标题 (N － 1, 3)<br />     对象 [N].总价 ＝ 超级列表框1.取标题 (N － 1, 4)<br /> .计次循环尾 ()<br /> .计次循环首 (表项数量, N)<br />     索引 ＝ 超级列表框2.查找表项 (对象 [N].购买人, 0, 真, 1)<br />     .判断开始 (索引 ＝ -1)<br />         索引 ＝ 超级列表框2.插入表项 (, , , , , )<br />         序号 ＝ 序号 ＋ 1<br />         超级列表框2.置标题 (索引, 0, 到文本 (序号))<br />         超级列表框2.置标题 (索引, 1, 对象 [N].购买人)<br />         超级列表框2.置标题 (索引, 2, 对象 [N].物品名称)<br />         超级列表框2.置标题 (索引, 3, 对象 [N].金额)<br />         超级列表框2.置标题 (索引, 4, 对象 [N].总价)<br />     .默认<br />         索引 ＝ 超级列表框2.插入表项 (索引 ＋ 1, , , , , )<br />         超级列表框2.置标题 (索引, 1, 对象 [N].购买人)<br />         超级列表框2.置标题 (索引, 2, 对象 [N].物品名称)<br />         超级列表框2.置标题 (索引, 3, 对象 [N].金额)<br />         超级列表框2.置标题 (索引, 4, 对象 [N].总价)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 索引 ＝ 1<br /> .循环判断首 ()<br />     .判断开始 (超级列表框2.取标题 (索引, 0) ≠ “”)<br />         总价 ＝ 0<br />         购买人 ＝ 超级列表框2.取标题 (索引 － 1, 1)<br />         插入索引 ＝ 超级列表框2.插入表项 (索引, “购买人”, , , , )<br />         超级列表框2.置标题 (插入索引, 1, 购买人)<br />         超级列表框2.置标题 (插入索引, 2, “总需付款金额”)<br />         临时索引 ＝ 插入索引<br />         .计次循环首 (插入索引, N)<br />             临时索引 ＝ 插入索引 － N<br />             总价 ＝ 总价 ＋ 到整数 (超级列表框2.取标题 (临时索引, 3))<br />             .判断开始 (超级列表框2.取标题 (临时索引, 0) ＝ “”)<br />                 超级列表框2.置标题 (临时索引, 1, “”)<br />             .默认<br />                 跳出循环 ()<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />         超级列表框2.置标题 (插入索引, 3, 到文本 (总价))<br />         超级列表框2.插入表项 (插入索引 ＋ 1, , , , , )<br />         索引 ＝ 索引 ＋ 3<br />     .默认<br />         索引 ＝ 索引 ＋ 1<br />     .判断结束<br /> <br /> .循环判断尾 (索引 ＜ 超级列表框2.取表项数 ())<br /> 总价 ＝ 0<br /> 索引 ＝ 超级列表框2.取表项数 () － 1<br /> 购买人 ＝ 超级列表框2.取标题 (索引, 1)<br /> 插入索引 ＝ 超级列表框2.插入表项 (, “购买人”, , , , )<br /> 超级列表框2.置标题 (插入索引, 1, 购买人)<br /> 超级列表框2.置标题 (插入索引, 2, “总需付款金额”)<br /> 临时索引 ＝ 插入索引<br /> .计次循环首 (插入索引, N)<br />     临时索引 ＝ 插入索引 － N<br />     总价 ＝ 总价 ＋ 到整数 (超级列表框2.取标题 (临时索引, 3))<br />     .判断开始 (超级列表框2.取标题 (临时索引, 0) ＝ “”)<br />         超级列表框2.置标题 (临时索引, 1, “”)<br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框2.置标题 (插入索引, 3, 到文本 (总价))

超列自定义排版.zip (2.69 KB, 下载次数: 111)

2015-2-7 23:11 上传

点击文件名下载附件

御风软件

发现自己突然变的好笨，哈哈，怎么能纯源码实现呢。。。。。

jyqifa

就在找这个东西

qewrf2000

超级列表框 自定义排版 归类 统计

qewrf2000

厉害~~学习~!

╰☆ぷ水晶ぷ

厉害~~学习~!

shaojie418

看看吧学习

1347379245

不错不错

念念念不忘

到手

tanggq082

谢谢分享啊

qq910049633

处理大数据不建议这种方法。