关于选择框可以重复输入的问题，

老白菜

双击选择框1的内容会复制到选择框2里，但是我没办法做到选择框2的内容不重复，麻烦大大们帮忙看看应该怎么写。谢谢。

  

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

子程序名	返回值类型	公开	备 注
_列表框2_列表项被选择

子程序名	返回值类型	公开	备 注
_列表框1_双击选择

变量名	类 型	静态	数组	备 注
临时文本	文本型
次数	整数型

临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
' 次数 ＝ 列表框2.取项目数 ()
列表框2.加入项目 (列表框1.取项目文本 (列表框1.现行选中项), 0)
计次循环首 (列表框2.取项目数 (), 次数)
如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)
调试输出 (“重复了”)
' 信息框 (“请不要重复输入”, 0, )
列表框2.删除项目 (次数 － 1)
次数 ＝ 0
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框2_双击选择

列表框2.删除项目 (列表框2.现行选中项)

子程序名	返回值类型	公开	备 注
_调节器1_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

变量名	类 型	静态	数组	备 注
对比内容	文本型
对比数值	整数型

对比内容 ＝ 列表框2.取项目文本 (列表框2.现行选中项)
对比数值 ＝ 列表框2.现行选中项
如果 (按钮值 ＝ 1)
调试输出 (对比数值)
如果真 (对比数值 ＝ 0)
返回 ()
列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 － 1))
列表框2.置项目文本 (对比数值 － 1, 对比内容)
列表框2.现行选中项 ＝ 对比数值 － 1

如果真 (对比数值 ＝ 列表框2.取项目数 () － 1)
返回 ()
列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 ＋ 1))
列表框2.置项目文本 (对比数值 ＋ 1, 对比内容)
列表框2.现行选中项 ＝ 对比数值 ＋ 1

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> <br /> <br /> <br /> .子程序 _列表框2_列表项被选择<br /> <br /> <br /> <br /> <br /> .子程序 _列表框1_双击选择<br /> .局部变量 临时文本, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> 临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br /> ' 次数 ＝ 列表框2.取项目数 ()<br /> 列表框2.加入项目 (列表框1.取项目文本 (列表框1.现行选中项), 0)<br /> <br /> .计次循环首 (列表框2.取项目数 (), 次数)<br /> <br />     .如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)<br /> <br />     .如果真结束<br />     调试输出 (“重复了”)<br />     ' 信息框 (“请不要重复输入”, 0, )<br />     列表框2.删除项目 (次数 － 1)<br />     次数 ＝ 0<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 _列表框2_双击选择<br /> <br /> 列表框2.删除项目 (列表框2.现行选中项)<br /> <br /> .子程序 _调节器1_调节钮被按下<br /> .参数 按钮值, 整数型<br /> .局部变量 对比内容, 文本型<br /> .局部变量 对比数值, 整数型<br /> <br /> 对比内容 ＝ 列表框2.取项目文本 (列表框2.现行选中项)<br /> 对比数值 ＝ 列表框2.现行选中项<br /> <br /> .如果 (按钮值 ＝ 1)<br />     调试输出 (对比数值)<br />     .如果真 (对比数值 ＝ 0)<br />         返回 ()<br />     .如果真结束<br />     列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 － 1))<br />     列表框2.置项目文本 (对比数值 － 1, 对比内容)<br />     列表框2.现行选中项 ＝ 对比数值 － 1<br /> <br /> .否则<br />     .如果真 (对比数值 ＝ 列表框2.取项目数 () － 1)<br />         返回 ()<br />     .如果真结束<br />     列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 ＋ 1))<br />     列表框2.置项目文本 (对比数值 ＋ 1, 对比内容)<br />     列表框2.现行选中项 ＝ 对比数值 ＋ 1<br /> .如果结束

老白菜

已解决，谢谢大家

老白菜

问题已经解决，谢谢大家，或者还有更好更方便的方法也可以指导下。谢谢。
[e]

1. .版本 2
   
2. 
   
3. .局部变量 临时文本, 文本型
   
4. .局部变量 次数, 整数型
   
5. 
   
6. 临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
   
7. 列表框2.加入项目 (临时文本, )
   
8. 
   
9. .计次循环首 (列表框2.取项目数 () － 1, 次数)
   
10.     .如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)
    
11.         列表框2.删除项目 (列表框2.取项目数 () － 1)
    
12.     .如果真结束
    
13. 
    
14. .计次循环尾 ()
    
15. 
    

复制代码

[/e]

相遇在转角

<div class="blockcode"><div id="code_SXv"><ol><li>.版本 2
<li>
<li>.局部变量 临时文本, 文本型
<li>.局部变量 次数, 整数型
<li>
<li>临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
<li>列表框2.加入项目 (临时文本, )
<li>
<li>.计次循环首 (列表框2.取项目数 () － 1, 次数)
<li>    .如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)
<li>        列表框2.删除项目 (列表框2.取项目数 () － 1)
<li>    .如果真结束
<li>
<li>.计次循环尾 ()
<li>
<li></ol></div><em onclick="copycode($('code_SXv'));">复制代码</em></div>