（急）怎么计算超级列表框里面的数据？高手进来下。

391835159

怎么计算超级列表框里面的数据？高手进来下。


怎么计算超级列表框里面的数据。。。。。。。
然后在透明标签1组件上面显示？
小弟琢磨很久了，弄不明白、
                                         3
                                         2
                                      0.03
                                      42
                                        8.6
                                        4.1

上面数字都是在超级列表框.现行选中项, 4, “”)
如何单击按钮使透明标签1数字+超级列表框.现行选中项, 4数字相加


后透明标签1显示结果，就如统计营业额一样

如图1↓↓↓

金额超级列表框.现行选中项, 4, “”为金额/元位置

如图2↓↓↓
超级列表框.现行选中项, 4,被选中后单击“结束”按钮
使其透明标签1数字相加（+）超级列表框.现行选中项, 4,（金额/元位置）数字后结果在透明标签1显示相加结果

图1

补充：就是说结帐某一行使其金额自动相加得出结果显示在透明标签1上


请附上源码
在此谢谢先...

白河小鸟

不好意思，没上论坛没看到，如果你说的那样相加的话
标签1.标题=到文本(到整数（超级列表框1.取标题（超级列表框1.现行选中，这里填写你金额是在第几行，第一行是0第二行才是1)）+到整数（标签1.标题))

9梦

-_, 我记得小学是用Word算的   现在不会了

airpppp

指定列,循环相加,简单!

白河小鸟

局部变量 L 整数  Q 整数 数组 0
重定义数组（Q,超级列表框.取项目数()）
计次循环首(需要循环几次就填计次，这里我填写超级列表框.取项目数(),L)
Q[L]=到整数(超级列表框1.取标题(L,这里填写你需要计算的金额在第几列，第一个表示是0))
如果真(L＞1)
Q=Q[L-1]+Q[L]
如果真尾()
Q[L]=Q[L]
计次循环尾()

391835159

回复 1# 391835159


    金额位于-超级列表框.现行选中项, 4, “”
  使其单击按钮1超级列表框.现行选中项, 4, “”与标签1.标题相加结果显示在标签1
可否给出源码.....谢谢了拜托你....

注：现行选中项, 4, “”每单击一次按纽1使其与标签1.标题相加结果显示在标签1上

391835159

回复 4# qq5045100


    金额位于-超级列表框.现行选中项, 4, “”
  使其单击按钮1超级列表框.现行选中项, 4, “”与标签1.标题相加结果显示在标签1
可否给出源码.....谢谢了拜托你....

注：现行选中项, 4, “”每单击一次按纽1使其与标签1.标题相加结果显示在标签1上


麻烦如上意思给出源码...谢谢你先。。。{:3_218:}

413611108

忘记了 谢谢

misf

给你个例子的代码

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 _按钮_添加_被单击
   
7. 
   
8. 载入 (窗口_添加, , 假)
   
9. _启动窗口.可视 ＝ 假
   
10. 
    
11. 
    
12. .子程序 _按钮_计算_被单击
    
13. .局部变量 总钱数, 小数型
    
14. .局部变量 局部_计次, 整数型
    
15. 
    
16. .如果真 (超级列表框1.取表项数 () ＞ 0)
    
17. .计次循环首 (超级列表框1.取表项数 (), 局部_计次)
    
18. 总钱数 ＝ 总钱数 ＋ 到数值 (超级列表框1.取标题 (局部_计次 － 1, 2))
    
19. .计次循环尾 ()
    
20. 透明标签_总钱数.标题 ＝ 到文本 (总钱数)
    
21. 
    
22. .如果真结束
    
23. 
    
24. 
    
25. .子程序 __启动窗口_将被销毁
    
26. .局部变量 写出内容, 文本型
    
27. .局部变量 局部_计次, 整数型
    
28. 
    
29. .如果真 (超级列表框1.取表项数 () ＞ 0)
    
30. .计次循环首 (超级列表框1.取表项数 (), 局部_计次)
    
31. 写出内容 ＝ 写出内容 ＋ 超级列表框1.取标题 (局部_计次 － 1, 0) ＋ “|” ＋ 超级列表框1.取标题 (局部_计次 － 1, 1) ＋ “|” ＋ 超级列表框1.取标题 (局部_计次 － 1, 2) ＋ #换行符
    
32. .计次循环尾 ()
    
33. 写到文件 (取当前目录 () ＋ “\jl.dat”, 到字节集 (写出内容))
    
34. .如果真结束
    
35. 
    
36. 
    
37. .子程序 __启动窗口_创建完毕
    
38. .局部变量 临时文本, 文本型
    
39. .局部变量 大文本数组, 文本型, , "0"
    
40. .局部变量 小文本数组, 文本型, , "0"
    
41. .局部变量 局部_计次, 整数型
    
42. .局部变量 局部_再计次, 整数型
    
43. 
    
44. .如果真 (文件是否存在 (取当前目录 () ＋ “\jl.dat”))
    
45. 临时文本 ＝ 到文本 (读入文件 (取当前目录 () ＋ “\jl.dat”))
    
46. .如果真结束
    
47. 
    
48. .如果真 (临时文本 ≠ “”)
    
49. 清除数组 (大文本数组)
    
50. 大文本数组 ＝ 分割文本 (临时文本, #换行符, )
    
51. .计次循环首 (取数组成员数 (大文本数组), 局部_计次)
    
52. 清除数组 (小文本数组)
    
53. 小文本数组 ＝ 分割文本 (大文本数组 [局部_计次], “|”, )
    
54. 超级列表框1.插入表项 (, , , , , )
    
55. .计次循环首 (取数组成员数 (小文本数组), 局部_再计次)
    
56. 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 局部_再计次 － 1, 小文本数组 [局部_再计次])
    
57. .计次循环尾 ()
    
58. .计次循环尾 ()
    
59. .如果真结束
    
60. 
    

复制代码

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集2
   
5. 
   
6. .子程序 _窗口_添加_将被销毁
   
7. 
   
8. _启动窗口.可视 ＝ 真
   
9. 
   
10. 
    
11. .子程序 _按钮_确定_被单击
    
12. 
    
13. .如果真 (删首尾空 (编辑框_姓名.内容) ＝ “”)
    
14. 信息框 (“姓名不能为空”, 0, “提示”)
    
15. 返回 ()
    
16. .如果真结束
    
17. .如果真 (删首尾空 (编辑框_工资.内容) ＝ “”)
    
18. 信息框 (“工资不能为空”, 0, “提示”)
    
19. 返回 ()
    
20. .如果真结束
    
21. _启动窗口.超级列表框1.插入表项 (, 到文本 (_启动窗口.超级列表框1.取表项数 () ＋ 1), , , , )
    
22. _启动窗口.超级列表框1.置标题 (_启动窗口.超级列表框1.取表项数 () － 1, 1, 删首尾空 (编辑框_姓名.内容))
    
23. _启动窗口.超级列表框1.置标题 (_启动窗口.超级列表框1.取表项数 () － 1, 2, 删首尾空 (编辑框_工资.内容))
    
24. 销毁 ()
    
25. 
    

复制代码

391835159

回复 7# qq5045100
我用到信息框提示...
而使金额在原界面显示，如下图你说的还是无法实现.给出点完整源码谢谢

最好给我个例程

   
.版本 2
.支持库 iext

.子程序 _结帐按钮_被单击


.如果 (超级列表框.取标题 (到数值 (机器列表框.内容) － 1, 1) ≠ “未知”)
    信息框 (“开始时间：” ＋ 超级列表框.取标题 (超级列表框.现行选中项, 2) ＋ #换行符 ＋ “现在时间：” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “：” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ #换行符 ＋ #换行符 ＋ “用时        ：” ＋ 超级列表框.取标题 (超级列表框.现行选中项, 3) ＋ #换行符 ＋ #换行符 ＋ “押金 ：” ＋ 超级列表框.取标题 (超级列表框.现行选中项, 6) ＋ “元” ＋ “   需收取金额 ：” ＋ 超级列表框.取标题 (超级列表框.现行选中项, 4) ＋ “元”, #信息图标, 超级列表框.取标题 (超级列表框.现行选中项, 0) ＋ “台球结帐！”)
    超级列表框.置标题 (超级列表框.现行选中项, 1, “未知”)
    超级列表框.置标题 (超级列表框.现行选中项, 2, “”)
    超级列表框.置标题 (超级列表框.现行选中项, 3, “”)
    超级列表框.置标题 (超级列表框.现行选中项, 4, “”)
    超级列表框.置标题 (超级列表框.现行选中项, 5, “”)
    超级列表框.置标题 (超级列表框.现行选中项, 6, “”)
    超级列表框.置标题 (超级列表框.现行选中项, 7, “”)
.否则
    信息框 (“错误的终止动作！”, #信息图标, “提示：”)

.如果结束
播放音乐 (#声音2, )

更换新皮肤 (11)
超级列表框.文本颜色 ＝ #嫩绿
标签8.标题 ＝ 到文本 (到整数 (超级列表框.取标题 (超级列表框.现行选中项, 4)) ＋ 到整数 (标签8.标题))