求助取内容

1182410163

求助 超级列表框1 第二列内容是随时变化的 选中某一行 导入列表框2 如果分割有重复的就不插入有新的就插入求个源码 求助111.e (1.07 MB, 下载次数: 4)

2024-5-25 10:24 上传

点击文件名下载附件
而且我现在这样写第二次点击会有很多空项插入

xingyou6

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
积分	文本型
分割	文本型		0
i	整数型
索引	整数型

积分 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
判断 (积分 ≠ “”)
分割 ＝ 分割文本 (积分, “&”, )
计次循环首 (取数组成员数 (分割), i)
如果真 (超级列表框2.查找表项 (分割 [i], , 假, 1) ＝ -1)
索引 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (索引, 0, 到文本 (i))  ' 序号
超级列表框2.置标题 (索引, 1, 分割 [i])  ' 积分

计次循环尾 ()
返回 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 积分, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> <br /> 积分 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br /> .判断开始 (积分 ≠ “”)<br />     分割 ＝ 分割文本 (积分, “&”, )<br />     .计次循环首 (取数组成员数 (分割), i)<br />         .如果真 (超级列表框2.查找表项 (分割 <i>, , 假, 1) ＝ -1)<br />             索引 ＝ 超级列表框2.插入表项 (, , , , , )<br />             超级列表框2.置标题 (索引, 0, 到文本 (i))  ' 序号<br />             超级列表框2.置标题 (索引, 1, 分割 <i>)  ' 积分<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .默认<br />     返回 ()<br /> .判断结束

fire9

好了                 

fire9

这里。。。。

liuqiqi87

这样改就可以了

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
积分	文本型
分割	文本型		0
i	整数型
索引	整数型

积分 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
判断 (积分 ≠ “”)
分割 ＝ 分割文本 (积分, “&”, )
计次循环首 (取数组成员数 (分割), i)
索引 ＝ 超级列表框2.插入表项 (, , , , , )
超级列表框2.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框2.置标题 (索引, 1, 分割 [i])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 积分, 文本型<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> <br /> 积分 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br /> .判断开始 (积分 ≠ “”)<br />     分割 ＝ 分割文本 (积分, “&”, )<br />     .计次循环首 (取数组成员数 (分割), i)<br />         索引 ＝ 超级列表框2.插入表项 (, , , , , )<br />         超级列表框2.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />         超级列表框2.置标题 (索引, 1, 分割 <i>)<br />     .计次循环尾 ()