如何使用AddItem和RemoveItem来从一个列表框移动到另一个选择
时 间:2008-05-24 07:53:16
作 者:UMVsoft整理 ID:43 城市:江阴
摘 要:本指南介绍如何管理两列表以便传输单向也组到二列表反之亦然项目从一个列表。 过程是类似于 Access 向导如列表框向导本身中看到。
正 文:
概要
本指南介绍如何管理两列表以便传输单向也组到二列表反之亦然项目从一个列表。 过程是类似于 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
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)