两个LIST,如何双击使LIST1的一项到LIST2中。
两个LISTLIST1,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 编辑 ]