Access平台开发人员帮助 > 通用函数库 > 按功能 > 控件相关

函数说明

该函数可以将一个列表框选中的一个列表项，转移到另一个列表框中去。

注意：列表框的多选属性最好设置成“无”，而且要确保两个列表框的列数一致。

函数原型

Public Function gf_OneDataListToList(lstFrom As ListBox, lstTo As ListBox) As Boolean

语法

gf_OneDataListToList(lstFrom, lstTo)

参考：gf_OneDataListToList(Me.lstTest1, Me.lstTest2) '将窗体上的lstTest1选中的列表项转移到lstTest2上

参数

参数名	必需/可选	数据类型	参数说明
lstFrom	必需	ListBox	要转移的列表项，所在的列表框
lstTo	必需	ListBox	要转移的列表项，目标的列表框

返回值

返回一个布尔值(Boolean)。转移成功，返回True；反之，返回False。

示例

Sub subTest()

Dim blnValue As Integer '定义不二型变量，用于接收函数返回结果

blnValue = gf_OneDataListToList(Me.lstTest1, Me.lstTest2) '将窗体上的lstTest1选中的列表项转移到lstTest2上

If blnValue Then '判断是否转移成功

Msgbox "转移成功"

Else

Msgbox "转移不成功"

End If

End Sub

两个列表框列表项转移（gf_OneDataListToList函数）