Microsoft 提供仅,用于说明的编程示例不附带任何明示或默示的保证。 这包括,但不限于适销性或针对特定用途的适用性的默示保证。 本文假定您熟悉所演示的编程语言和用于创建和调试过程的该工具。 Microsoft 支持工程师可以帮助解释某个特定的过程的功能,但是它们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。 要更新多列组合框中进行选择文本框,使用下面的步骤:
打开示例数据库 Northwind.mdb。
在包含下列字段的 Northwind.mdb 中创建新表:
Table: Table1
----------------------
Field Name: ID
Data Type: Autonumber
Primary Key
---
Field Name: FirstName
Data Type: Text
---
Field Name: LastName
Data Type: Text
---
Field Name: Title
Data Type: Text
在包含以下控件的 Northwind.mdb 中创建新窗体:
Form: Form1
----------------------
RecordSource: Table1
---
Control Type: Text Box
Name: txtFirstName
ControlSource: FirstName
---
Control Type: Text Box
Name: txtLastName
ControlSource: LastName
---
Control Type: Text Box
Name: txtTitle
ControlSource: Title
将组合框添加到 Form 1。 在组合框向导中请执行下列步骤:
单击 我希望在组合框查阅表或查询中值 ,然后单击 下一步 。
单击 表: 雇员 ,然后单击 下一步 。
将 LastName 、 FirstName 和 标题 字段从 可用字段 列表移动至 选定字段 列表,通过选择每个字段,然后单击在 >按钮。 单击 下一步 。
单击 下一步 ,单击 记住以供将来使用值 ,然后单击 下一步 。
在 指定标签希望在组合框的 框键入 选择 ,然后单击 完成 。
右键单击您在步骤 4,组合框,然后单击 属性 。
单击 其他 选项卡,然后键入在 名称 框中的 cboNames 。
单击 事件 选项卡,单击 之后的更新 事件框,然后单击 ( | ) 生成 按钮。
单击 代码生成器 ,然后单击 确定 。
在 Visual Basic 编辑器中,键入以下代码:
Private Sub cboNames_AfterUpdate()
Me.txtFirstName = Me![cboNames].column(1)
Me.txtLastName = Me![cboNames].column(2)
Me.txtTitle = Me![cboNames].column(3)
End Sub
退出 Visual Basic 编辑器中,然后在窗体视图中打开 Form 1 窗体。
单击组合框中的某个项目,然后单击 下一步的记录 。 要保存的每条记录的重复此步骤。
在 Table 1 视图中打开表,以确认已保存新记录。 请注意,您单击组合框中的项目、 AfterUpdate 属性运行事件过程填充窗体上, 三个文本框并为 Table 1 中添加新记录之后。