如何使用AddItem和RemoveItem来从一个列表框移动到另一个选择-金宇专栏

概要
本指南介绍如何管理两列表以便传输单向也组到二列表反之亦然项目从一个列表。过程是类似于 Access 向导如列表框向导本身中看到。
更多信息
Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。警告：如果您执行此示例, 中步骤您修改示例数据库 Northwind.mdb。可能需要备份 Northwind.mdb 文件和数据库的副本上执行这些步骤。

过程中第三步当您使用列表框向导来从表或查询, 选择字段提供两个列表：可用字段和选定字段。选定字段列表为空最初。您可一个列表中选择字段并将它们移动到其他通过单击四个按钮之一。

本指南介绍如何创建窗体具有类似，可用于为进一步处理因为您需要选择特定记录列表。当您需要选择其标识已知会运算符某些客户但查询中对其不能轻松设置条件，例如, 为有用。

要创建窗体使您能够选择客户以此方式, 请按照下列步骤： 1. 启动 Access, 并打开示例数据库 Northwind.mdb 或示例项目 NorthwindCS.adp。
2. 在设计视图, 新建表单并保存它与名称选择客户。
3. 对窗体主体节中创建两个列表框。一个框 List 1 名称和其他框 List2。 RowSourceType 属性设为值列表。
4. 创建四个命令按钮, 下面对窗体, 主体节中其他一个，然后设置其属性如下：        Name                  Caption
     ----------              ----------
     cmdMoveToList2              >
     cmdMoveAllToList2          >>
     cmdMoveToList1              <
     cmdMoveAllToList1          <<


5. 单击工具栏上, 并在代码窗口, 键入或粘贴下列过程, 根据是否使用 Northwind.mdb 或 NorthwindCS.adp 之一：代码按钮,• 如果使用 Northwind.mdb, 键入或粘贴此过程：Private Sub Form_Load()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim strSQL As String, strItem As String

   strSQL = "Select CustomerID, CompanyName FROM Customers"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL)
   Do Until rs.EOF
      strItem = rs.Fields("CustomerID").Value & ";" _
         & rs.Fields("CompanyName").Value
      Me.List1.AddItem strItem      ' Row Source Type must be Value List
      rs.MoveNext

   Loop
   rs.Close
   Set rs = Nothing
   Set db = Nothing
End Sub


• 如果使用 NorthwindCS.adp, 键入或粘贴此过程：Private Sub Form_Load()

   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strSQL As String, strItem As String

   strSQL = "Select CustomerID, CompanyName FROM Customers"
   Set cn = Application.CurrentProject.Connection
   Set rs = New ADODB.Recordset
   rs.Open strSQL, cn, adOpenForwardOnly, adLockOptimistic

   Do Until rs.EOF
      strItem = rs.Fields("CustomerID").Value & ";" _
         & rs.Fields("CompanyName").Value
      Me.List1.AddItem strItem      ' Row Source Type must be Value List
      rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing

Set cn = Nothing

End Sub

6. 对于同时 Northwind.mdb 或 NorthwindCS.adp 添加下列过程：Private Sub cmdMove