创建一个简单的 DataCombo 应用程序

下面的示例使用 DataCombo 控件为 Northwind.mdb 示例数据库的 Titles 表创建一个数据输入界面。这个输入界面使用户可以输入新的产品，并通过提供一个包括所有供应商名称的查找表将这些新产品指定到已有的供应商。当用户在输入窗体中要输入供应商字段的值时，他们可以从一个列表框中选择一个供应商。当他们选定一个供应商后，该供应商的 SupplierID 字段值就复制到 Products 表的 SupplierID 字段。

要使用 DataCombo 控件来创建一个查找表

给 Northwind 数据库创建一个OLEDB 数据源。
如果还没有创建数据源，请按照“创建 Northwind 的OLEDB 数据源”中的步骤进行。
在Visual Basic 中创建一个新的标准的 EXE 工程。
如果“DataGrid”、“DataCombo”、或“ADO Data”控件不在“工具箱”中，则右键单击“工具箱”，然后使用“部件”对话框来添加控件。
添加一个 DataCombo 控件、两个 ADO Data 控件、以及一个 DataGrid 控件到窗体中。
在“属性”窗口中，如下表所示设置第一个数据控件 (Adodc1) 的属性。

属性	设置值
Name	AdoDataSource
ConnectionString	Northwind.udl
RecordSource	Select * From Products;
Caption	Products

在“属性”窗口中，如下表所示设置第二个数据控件 (Adodc2) 的属性。

属性	设置值
Name	AdoRowSource
ConnectionString	Northwind.udl
RecordSource	Select CompanyName, SupplierID From Suppliers;
Caption	Suppliers
Visible	False

在“属性”窗口中，如下表所示设置 DataGrid 控件的属性。

属性	设置值
Name	GrdProducts
DataSource	AdoDataSource
Caption	Products

在“属性”窗口中，如下表所示设置 DataCombo 控件的属性。

属性	设置值
Name	DcbSuppliers
DataSource	AdoDataSource
DataField	SupplierID
RowSource	AdoRowSource
ListField	CompanyName
BoundColumn	SupplierID

最后，将下述代码添加到该窗体的代码模块中：

Private Sub Form_Load()
' 在 DataGrid 控件中隐藏 SupplierID 字段，使用户
' 不会混淆到底该更改哪一个值。
grdProducts.Columns("SupplierID").Visible = False
End Sub

运行该工程。

可以通过单击可视的 ADO Data 控件上的箭头来浏览记录集。如果这样做，DataCombo 控件将更新和显示每一个产品的供应商的名称。如果要编辑 SupplierID 字段，则单击 DataCombo 控件的箭头来显示一个下拉列表，然后再单击一个不同的供应商，来改变写入到 SupplierID 字段的值。