超级列表框去重后取项目数量到编辑框！

sheldon

超级列表框去重后取项目数量到编辑框！

龍孞

sheldon 发表于 2015-5-27 13:30
谢谢你啊。效果很接近了，我需要超表框内不要变动，只想在编框内显示数量就行。要怎么改？求不吝赐教，

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 计次, 整数型
   
6. .局部变量 计数, 整数型
   
7. 
   
8. 
   
9. 打开 (取运行目录 () ＋ “\a.edb”, , , , , “”, )
   
10. 超级列表框1.全部删除 ()
    
11. .计次循环首 (取记录数 (), 计次)
    
12.     跳到 (计次)
    
13.     .如果真 (超级列表框1.查找表项 (读 (2), 0, 真, 1) ＝ -1)
    
14.         计数 ＝ 计数 ＋ 1
    
15.     .如果真结束
    
16.     超级列表框1.插入表项 (计次 － 1, 读 (1), 0, , , )
    
17.     超级列表框1.置标题 (计次 － 1, 1, 读 (2))
    
18.     超级列表框1.置标题 (计次 － 1, 2, 读 (3))
    
19. .计次循环尾 ()
    
20. 关闭 (取运行目录 () ＋ “\a.edb”)
    
21. 超级列表框1.保证显示 (超级列表框1.取表项数 () － 1)
    
22. 编辑框1.内容 ＝ 到文本 (计数)
    

复制代码

龍孞

在加入表项的时候就把重复的去掉！

  

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

变量名	类 型	静态	数组	备 注
计次	整数型
表项	整数型

打开 (取运行目录 () ＋ “\a.edb”, , , , , “”, )
超级列表框1.全部删除 ()
计次循环首 (取记录数 (), 计次)
跳到 (计次)
如果真 (超级列表框1.查找表项 (读 (2), 0, 真, 1) ＝ -1)
表项 ＝ 超级列表框1.插入表项 (, 读 (1), , , , )
超级列表框1.置标题 (表项, 1, 读 (2))
超级列表框1.置标题 (表项, 2, 读 (3))

计次循环尾 ()
关闭 (取运行目录 () ＋ “\a.edb”)
超级列表框1.保证显示 (超级列表框1.取表项数 () － 1)
编辑框1.内容 ＝ 到文本 (超级列表框1.取表项数 ())

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 表项, 整数型<br /> <br /> 打开 (取运行目录 () ＋ “\a.edb”, , , , , “”, )<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (取记录数 (), 计次)<br />     跳到 (计次)<br />     .如果真 (超级列表框1.查找表项 (读 (2), 0, 真, 1) ＝ -1)<br />         表项 ＝ 超级列表框1.插入表项 (, 读 (1), , , , )<br />         超级列表框1.置标题 (表项, 1, 读 (2))<br />         超级列表框1.置标题 (表项, 2, 读 (3))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 关闭 (取运行目录 () ＋ “\a.edb”)<br /> 超级列表框1.保证显示 (超级列表框1.取表项数 () － 1)<br /> 编辑框1.内容 ＝ 到文本 (超级列表框1.取表项数 ())

sheldon

龍孞 发表于 2015-5-27 12:59
在加入表项的时候就把重复的去掉！
[e=4].版本 2
.支持库 iext

谢谢你啊。效果很接近了，我需要超表框内不要变动，只想在编框内显示数量就行。要怎么改？求不吝赐教，