两个LIST

LIST1,LIST2.四个按钮

双击LIST1的一项（或点向右移按钮），该项移到LIST2中，并在LIST1中删除该项
双击LIST2的一项（或点向左移按钮），该项移到LIST1中，并在LIST2中删除该项

点“全部向右移”按钮，则LIST1的数据全部到LIST2中
点“全部向左移”按钮，要求反过来


我搞了很多办法，虽然能达到一点需求，但使用起来，还是有些错误的结果。请求高手，给个成熟的。

这个东西好象有类，但找不到了
请帮我看看错在什么地方？

LIST1.DBLCLICK:

*-------
Thisform.pageframe1.page2.list2.AddItem(Thisform.pageframe1.page2.list1.List(thisform.pageframe1.page2.list1.ListIndex))
Thisform.pageframe1.page2.list1.REMOVELISTITEM(Thisform.pageframe1.page2.list1.ListIndex)
*---------

thisform.pageframe1.page2.Refresh

IF thisform.pageframe1.page2.list2.ListCount>0
   thisform.pageframe1.
   thisform.pageframe1.
ENDIF

LIST.DBLCLICK:


Thisform.pageframe1.page2.list1.AddItem(Thisform.pageframe1.page2.list2.List(thisform.pageframe1.page2.list2.ListIndex))
Thisform.pageframe1.page2.list2.REMOVELISTITEM(Thisform.pageframe1.page2.list2.ListIndex)
*--------

thisform.pageframe1.page2.Refresh

IF thisform.pageframe1.page2.list2.ListCount<1
   thisform.pageframe1.
   thisform.pageframe1.
ENDIF

[ 本帖最后由 YZCZWCB 于 2010-1-19 17:15 编辑 ]

顶起来

先转移出去，用AddItem()；然后删除掉，用RemoveItem()

帮我看看以上程序呀