在介绍之前，先来看看效果：
=>未移动之前，左右两边List View情况
=>点击右移按钮后
这里讲到了CQ中控件的一个简单应用，大致思路如下：
实现两个List View中的记录的相互移动
步骤如下：
1.定义2个字段AA，BB，类型都是Reference_List
2.将这两个字段从Field List中拖入到Form上，分别是List1，List2，按上图中布局进行设计
3.其中Add，Remove这2个button是控件自带的
4.创建两个Record Script：LTR，RTL，代码如下：
复制内容到剪贴板
代码:
Function enhancementrequest_LTR(param)
' param As Variant
' record type name is EnhancementRequest
REM add your hook code here
Dim ListSel
On error resume next
ListSel = param.ListSelection
If ListSel(0) <> "" Then
DeleteFieldValue "AA", ListSel(0)
AddFieldValue "BB", ListSel(0)
End If
End Function
Function enhancementrequest_RTL(param)
' param As Variant
' record type name is EnhancementRequest
REM add your hook code here
Dim ListSel
On error resume next
ListSel = param.ListSelection
If ListSel(0) <> "" Then
DeleteFieldValue "BB", ListSel(0)
AddFieldValue "AA", ListSel(0)
End If
End Function5.添加2个按钮，->及<-，设置这两个按钮分别关联List1和List2，并关联RS，属性设置如下：
=>右移按钮属性
=>左移按钮属性
6.调试并运行，可以看到刚开始的效果
[
本帖最后由 yunshan 于 2007-12-27 13:05 编辑 ]
