我的表单上有三个列表框和一个命令按钮(4个按钮)其NAME分别是LIST2\LIST3\LIST4\COMMANDGROUP1,
LIST1的INIT代码是:
This.RowSourceType= 3
This.RowSource='sele DISTINCT 口令 FROM 操作员管理 INTO CURSOR TEMP3'
()代码是:
THISFORM.LISt2.RemoveListItem(THISFORM.LIst2.ListIndex)
THISFORM.LISt3.AddItem(THISFORM.LIST2.Value,1)
THISFORM.TEXT7.Value=THISFORM.LIST3.ListCount
THISFORM.Refresh
()代码是:(具体见附件)

我要请教的问题是:
1、在LIST3添加项目的同时，如何把LIST2中的项目去掉？
2、如果没有点击“逐个移出”而直接点击“全部移出”按钮可以执行，为什么点击“逐个移出”后再点击“全部移出”按钮却提示“下标超界”？
如何修改？请指教。

我实验一下,发现仍然存在一下问题:
1、如果在“可选字段”中什么都不选，而直接单击“逐个添加”，会出现“可选字段”内的东西全部消失，“选定字段”内什么也没有；
2、如果先单击“逐个移出”，再单击“全部移出”，又会有“下标超界”的提示。

请指教！