DataGrid 控件的使用

　　使用 DataGrid 控件

　　DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。可以使用 DataGrid 来创建一个允许最终用户阅读和写入到绝大多数数据库的应用程序。DataGrid 控件可以在设计时快速进行配置，只需少量代码或无需代码。当在设计时设置了DataGrid 控件的 DataSource 属性后，就会用数据源的记录集来自动填充该控件，以及自动设置该控件的列标头。然后您就可以编辑该网格的列；删除、重新安排、添加列标头、或者调整任意一列的宽度。

　　在运行时，可以在程序中切换 DataSource 来察看不同的表，或者可以修改当前数据库的查询，以返回一个不同的记录集合。

　　注意 DataGrid 控件与 Visual Basic 5.0中的 DBGrid 是代码兼容的，除了一个例外：DataGrid 控件不支持 DBGrid 的解除绑定模式概念。DBGrid 控件包括在 Visual Basic 的 Tools 目录中。

　　可能的用法

　　查看和编辑在远程或本地数据库中的数据。

　　与另一个数据绑定的控件（诸如 DataList 控件）联合使用，使用 DataGrid控件来显示一个表的记录，这个表通过一个公共字段链接到由第二个数据绑定控件所显示的表。

　　使用 DataGrid 控件的设计时特性

　　可以不编写任何代码，只通过使用 DataGrid 控件的设计时特性来创建一个数据库应用程序。下面的说明概要地说明了在实现 DataGrid 控件的典型应用时的一般步骤。完整的循序渐进的指示，请参阅主题DataGrid 方案1: 使用 DataGrid 控件创建一个简单数据库应用程序。

　　要在设计时实现一个 DataGrid 控件

　　1. 为要访问的数据库创建一个 Microsoft 数据链接 (.MDL) 文件。请参阅创建 Northwind OLE DB 数据链接主题，以获得一个示例。

　　2. 在窗体上放置一个 ADO Data 控件，并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。

　　3. 在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记

　　录集的 SQL 语句。例如，Select * From MyTableName Where CustID = 12

　　4. 在窗体上放置一个 DataGrid 控件，并将其 DataSource 属性设置为这个 ADO Data 控件。

　　5. 右键单击该 DataGrid 控件，然后单击检索字段。

　　6. 右键单击该 DataGrid 控件，然后单击编辑。

　　7. 重新设置该网格的大小、删除或添加网格的列。

　　8. 右键单击该 DataGrid 控件，然后单击属性。

　　9. 使用属性页对话框来设置该控件的适当的属性，将该网格配置为所需的外观和行为。

　　在运行时更改显示的数据

　　在创建了一个使用设计时特性的网格后，也可以在运行时动态地更改该网格的数据源。下面介绍实现这一功能的通常方法。

　　更改 DataSource 的RecordSource

　　更改所显示的数据的最通常方法是改变该 DataSource 的查询。例如，如果DataGrid 控件使用一个ADO Data控件作为其 DataSource，则重写RecordSource和刷新该ADO Data 控件都将改变所显示的数据。

　　' ADO Data 控件连接的是 Northwind 数据库的' Products 表。新查询查找所有

　　' SupplierID = 12 的记录。

　　Dim strQuery As String

　　strQuery = "SELECT * FROM Suppliers WHERE SupplierID = 12"

　　Adodc1.RecordSource = strQuery

　　Adodc1.Refresh

　　更改 DataSource

　　在运行时，可以将 DataSource 属性重新设置为一个不同的数据源。例如，您可能具有若干个 ADO Data 控件，每个控件连接不同的数据库，或设置为不同的 RecordSource 属性。可以简单地将 DataSource 从一个 ADO Data控件重新设置为另一个 ADO Data 控件：

　　' 将 DataSource 重新设置为一个连接到 Pubs 数据库的、

　　' 使用 Authors 表的 ADO Data 控件。

　　Set DataGrid1.DataSource = adoPubsAuthors

　　重新绑定 DataSource

　　当将 DataGrid 控件用于一个远程数据库，诸如 SQLServer 时，可以改变表的结构。例如，可以给这个表添加一个字段。在这种情形下，可以调用Rebind 方法根据新的结构来重新创建该网格。注意，如果已经在设计时改变了这个列的布局，DataGrid 控件将会试图重新创建当前的布局，包括任何空的列。不过，通过首先调用 ClearFields 方法，可以强制该网格重新设置所有的列。

　　从 DataGrid 返回值

　　在 DataGrid 被连接到一个数据库后，可能想要监视用户单击了哪一个单元。可以使用 RowColChange 事件而不是 Click 事件。如下所示：

　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

　　' 显示用户所单击的单元的文字、行和列的信息。

　　Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col

　　End Sub

　　使用 CellText 和 CellValue 方法

　　当一个列使用 NumberFormat 属性设置格式后，CellText 和 CellValue 属性是很有用的。NumberFormat 属性不必更改实际的数据格式就可以更改任何包含数字的列的格式。例如，给定一个网格，其中包含一个名为 ProductID的、包含整数的列。下面的代码将使 DataGrid 以"P-0000" 的格式来显示数据。换句话说，尽管在 ProductID 字段中所包含的实际数值为 "3"，但该网格所显示的值将是 "P-0003"。

　　Private Sub Form_Load()

　　DataGrid1.Columns("ProductID").NumberFormat = "P-0000"

　　End Sub

　　要返回数据库中所包含的实际值，应使用 CellValue 方法，如下所示：

　　Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

　　Debug.Print _

　　DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)

　　End Sub

　　注意 上面所用的 CellValue 和下面所用的 CellText 值，都需要将Bookmark 属性作为一个参数，功能才正确。

　　相反地，如果要返回该字段的格式化的值，应使用 CellText 方法：

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)Debug.Print _DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)　　  End Sub

　　注意 上面的 CellText 方法等价于使用 DataGrid 控件的 Text 属性。

　　下一步

　　要阅读关于使用该控件创建简单的应用程序的一个循序渐进的过程，请参阅使用 DataGrid 控件创建简单的数据库应用程序，或创建一个连接DataList 控件的 DataGrid。

　　要了解关于 Split 对象以及如何对其编程的详细信息，请参阅操作DataGrid 视图。

　　创建 Northwind 的OLE DB 数据链接

　　访问数据的一个重要步骤是为想要访问的每个数据库都创建一个 OLE DB数据源。下面的步骤为 Visual Basic 所提供的Nwind.mdb (Northwind) 数据库创建这样一个对象。这个数据源被用于 Visual Basic 文档所提供的一些示例过程。在一个计算机上只需要创建一次OLE DB数据源。

　　要创建 Northwind 的OLE DB 数据源

　　1. 打开 Windows Explorer或 Windows NT Explorer。

　　2. 打开您想要创建 OLE DB 数据源的目录。在该示例中，打开 ProgramFiles、Microsoft Visual Studio和VB98。

　　3. 右键单击 Explorer 的右边窗格，然后单击上下文菜单上的新建。从文件类型列表中单击Microsoft 数据链接。

　　4. 重命名新文件 Northwind.MDL。

　　5. 右键单击文件并单击上下文菜单上的属性，以显示Northwind.MDLProperties对话框。

　　6. 单击连接选项卡。

　　7. 单击提供方框并选择Microsoft Jet 3.51 OLE DB Provider。

　　8. 在Data Source 框中输入nwind.mdb文件的路径。

　　9. 单击测试连接，检测连接。

　　10. 如果连接通过，单击确定。

　　注意 也可以通过在控制面板中单击数据链接图标创建一个 OLE DB数据源。在管理数据链接文件对话框中，单击新建创建一个新的数据源。

　　使用 DataGrid 和 ADO Data控件创建一个简单的数据库应用程序

　　只使用一个 DataGrid 和一个 ADO Data 控件，可以创建一个允许最终用户阅读和写入记录集的数据库应用程序。

　　要使用 ADO 数据控件来创建一个简单的数据库应用程序

　　1. 为 Northwind 数据库创建一个OLE DB 数据源。如果还没有创建数据源，请按照创建 Northwind 的OLE DB Data Link中的步骤操作。

　　2. 在Visual Basic 中创建一个新的标准的 EXE 工程。如果 DataGrid 控件不在工具箱中，则用右键单击工具箱，然后使用部件对话框来添加控件。同时也载入 ADO 控件。

　　3. 在空窗体上各放置控件的一个实例。

　　4. 将 ADO 控件的ConnectionString 属性设置为 Northwind 的数据源。单击并选定该 ADO Data 控件，并按 F4 键出现属性窗口。单击ConnectionString，然后单击 OLE DB File。单击 Northwind 的数据源。

　　5. 设置 ADO 控件的 RecordSource 属性。在属性窗口中，单击记录源并输入一条 SQL 语句来填充 DataGrid

　　控件。在本例中，输入Select * From Products。

　　6. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。单击并选定该 DataGrid 控件。在其属性窗口中，单击数据源将出现一个包含所有数据控件的下拉列表在本例中只有 ADO Data 控件。单击这个控件。

　　7. 按 F5 键运行这个工程。

　　创建一个连接 DataList 控件的 DataGridData

　　Grid 的通常用法是显示数据库的一个表所提供的详细内容。例如，Northwind (Nwind.mdb) 数据库包括两个表，一个名为 "Suppliers"，另一个名为 "Products"。在本例中，我们使用 DataList 控件来显示 "Suppliers" 表中的供应商的公司名称。当用户单击任意一个公司名称时，这个 DataList 控件将提供该公司的 SupplierID。使用这个标识符，就可以构造一个查询，在 "Products" 表中检索具有相匹配的 SupplierID 的所有记录。换句话说，当用户单击一个公司时（在 DataList 控件中），该公司生产的所有产品将出现在 DataGrid 控件中。

　　要使用一个指定供应商的产品填充一个 DataGrid 控件

　　1. 确认在机器上已为 Northwind 数据库建立了一个OLE DB 数据源；如果还没有创建这样的一个数据源，请按照创建 Northwind 的OLE DBData连接的步骤操作。

　　2. 在Visual Basic 中创建一个新的标准的 EXE 工程。

　　如果 DataGrid、DataList 和 ADO Data 控件不在工具箱中，则右键单击工具箱，然后单击部件。在部件对话框中双击MicrosoftDataGrid Control、Microsoft DataList Controls以及Microsoft ADOControl。

　　3. 在一个空窗体中各放置一个 DataGrid 和 DataList 控件的实例。将 DataList 控件放置在该窗体的左上角，然后将 DataGrid 控件放在它的下面的某处。

　　4. 在窗体放置两个 ADO Data 控件实例。选择第一个 ADO Data 控件，并按 F4 键来显示其属性页。将该控件的 Name 属性设置为 adoSuppliers。选择第二个 ADO Data 控件并将其 Name 属性设置为 adoProducts。将第一个控件直接放在 DataList 控件的下面，把第二个控件直接放在 DataGrid 控件的下面。

　　5. 将这两个 ADO Data 控件的 ConnectionString 属性设置为 Northwind的OLE DB 数据源。选择名为 adoSuppliers 的控件，然后将其ConnectionString 属性设置为Northwind 的OLE DB data source (Northwind.mdl)。选择名为 adoProducts的控件，并重复该操作。

　　6. 设置这两个 ADO Data 控件的 RecordSource 属性。选择 adoSuppliers 并在其属性页上单击RecordSoure。输入 Select* From Suppliers。这个查询将指示该 ADO Data 控件返回 Suppliers 表中的所有记录。选择 adoProducts，单击RecordSoure，并输入 Select *From Products。这个查询将返回在 Products 表中的所有记录。

　　7. 将 DataList 控件的 RowSource 属性设置为 adoSuppliers。

　　RowSource 属性决定由哪一个数据源为 ListField 属性供应数据。

　　8. 将 DataList 控件的 ListField 属性设置为 CompanyName。

　　ListField 属性被设置成名为 Suppliers 的表中的字段名称。在运行时，DataList 控件显示在这个属性中所指定的字段的值。在本例中，该属性将显示在 Suppliers 表中找到的一个公司名称。

　　9. 将 DataList 控件的 BoundColumn 属性设置为 SupplierID。

　　BoundColumn 属性被设为 Suppliers 表中的第二个字段。在本例中，这个属性就被设为 SupplierID 字段。当单击 DataList 控件时，BoundText属性返回与在 DataList 控件中所显示的公司相关联的 SupplierID 字段的值。这个值将用于对 Products 表的查询，该查询为 DataGrid 控件提供数据。

　　10. 将 DataGrid 控件的 DataSource 属性设置为 adoProducts。

　　DataSource 属性为该控件指定数据源。在本例中，该属性被设置为名为adoProducts 的 ADO Data 控件，这将返回 Products 表中的所有记录。

　　11. 在窗体的代码模块中，添加下述内容：

　　Private Sub Datalist1_Click()

　　' 声明一个用来包含新查询的字符串变量。这个新的

　　' 查询使用 DataList 控件的BoundText属性

　　' 来提供一个 SupplierID 值。新查询查找所有

　　' 具有相同的 SupplierID 的产品。这个查询被

　　' 指定给名为 adoProducts 的 ADO Data 控件

　　' 的 RecordSource 属性。在刷新控件后，DataGrid

　　' 将使用包含由同一个公司供应的所有产品的新

　　' 记录集来更新。

　　Dim strQuery As String

　　strQuery = "Select * FROM Products WHERE SupplierID = " & _

　　Datalist1.BoundText

　　With adoProducts

　　.RecordSource = strQuery

　　.Refresh

　　End With

　　With DataGrid1

　　.ClearFields

　　.ReBind

　　End With

　　End Sub

　　12. 运行该工程。

　　单击 DataList 控件中的任意公司名称，将自动用该公司所供应的产品更新 DataGrid 控件。

　　使用列

　　通过更改 DataSource 属性，可以动态地更改在 DataGrid 控件中显示的数据。例如，可以显示同一个数据库的不同表。如果这样做，则 DataGrid 控件将只根据默认的属性显示数据。

　　添加、删除或隐藏列

　　通过使用 Columns 集合和 Column 对象的属性和方法，可以在程序中添加、删除或隐藏列。

　　添加和删除一列

　　要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。

Private Sub AddColumn()　　' 在最右边的位置添加一列。然后设置其 Visible、Width、　　' Caption以及 Alignment 属性。DataField 属性则指定　　' 该列将绑定到哪一个字段。　　Dim c As Column　　Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)　　With c　　　.Visible = True　　　.Width = 1000　　　.Caption = "我的新列"　　　.DataField = Adodc1.Recordset.Fields("ProductName").Name　　　.Alignment = dbgRight　　End WithEnd Sub

　　可以使用方法来删除任意一列。请确保使用 ColIndex 参数来指定要删除的列。下面的代码将删除被单击的列。

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)　　　DataGrid1.Columns.Remove ColIndexEnd Sub

　　隐藏一列

　　通过将 Visible 属性设置为 False，可以隐藏任意一列。当想要限制用户可以查看或编辑的列时这一功能特别有用。下面的示例在 Columns 集合中循环，隐藏除少数列之外的所有列。

Private Sub HideColumns()　　' 使用 DataField 属性来判别正在测试的是哪一列。　　' 只显示三列：ProductName、UnitPrice以及　　' UnitsInStock。　　Dim c As Column　　For Each c In DataGrid1.Columns　Select Case c.DataField　Case "ProductName"　　　c.Visible = True　Case "UnitPrice"　　　c.Visible = True　Case "UnitsInStock"　　　c.Visible = True　　　c.Caption = "In Stock" 　　　' 更改这个列的标头。　Case Else ' 隐藏其它所有的列。　　　c.Visible = False　End Select　　Next cEnd Sub

　　操作 DataGrid 视图

　　一个拆分的网格使最终用户对相同的数据可以拥有多个视图。例如，假设有一个由十个字段组成的大表。在这种情况下，在控件中察看的记录集将有十列宽，除非窗体非常宽，否则用户将无法同时看见所有列的内容。，而且，假设用户只对第一列和最后一列感兴趣（例如，第一列是名字，最后一列是电话号码）。为了能同时看到在两端的列（不重新安排列的顺序），可以对网格进行拆分。

　　创建一个 Split 对象

　　在设计时，可以创建一个拆分，具体步骤是：右键单击网格，单击编辑，再单击右键，然后单击拆分。通过右键单击该控件，并单击属性来显示属性页对话框，可以编辑这个拆分。可以使用拆分选项卡来自定义拆分。要删除一个拆分，右键单击该拆分，并单击删除。

　　在运行时，最终用户也可以通过单击位于这个网格控件的左下边的右边的选项卡，以手工方式来拆分该网格（除非不允许这个操作），如下图所示：

　　默认情况下，DataGrid 控件包含一个 Split 对象。防止最终用户添加拆分的代码为：

　　DataGrid1.Splits(0).AllowSizing = False

　　在程序中添加和删除拆分

　　DataGrid 控件包含一个 Split 对象的集合。要在程序中添加拆分，可以使用 Add 方法，如下所示：

　　DataGrid1.Splits.Add 1

　　注意 Add 方法需要新的拆分索引作为其参数。要添加一个拆分，应将这个索引参数设置为 Splits 集合的 Count 属性值。

　　使用 Split 集合的 Add 方法，可以在程序中按照实际需要添加拆分。由于添加多于两个以上的拆分将使网格很难使用，可以使用该集合的 Count 属性来限制拆分的数目。

If DataGrid1.Splits.Count  3 Then ' 添加一个拆分。　　　DataGrid1.Splits.Add DataGrid1.Splits.CountEnd If

　　使拆分同步

　　当拆分多于一个时，可能希望控制这些拆分如何滚动。例如，在一个具有三个拆分的网格中，可以决定只让第一个和第三个拆分同步，而让中间的拆分独立地滚动。要同步任何两个（或多个）拆分，只需将每个 Split 对象的 ScrollGroup 属性设置为同一个值。

　　' 使第一个和第三个 Split 对象同步。

With DataGrid1　　.Splits(0).ScrollGroup = 1.Splits(1).ScrollGroup = 2.Splits(2).ScrollGroup = 1End With

　　通过设置 Scrollbars 属性，使同步的拆分组只显示一个滚卷条，从而进一步自定义拆分的外观。

　　控制 Tab 键和箭头键的行为

　　使用 WrapCellPointer、TabAcrossSplits以及 TabAction 属性，可以决定当最终用户按下 tab 键或箭头键时网格的行为。

　　在这三个属性中，TabAction 属性级别最高，它决定 WrapCellPointer 和TabAcrossSplits 这两个属性是否能生效。TabAction 有三个设置值： ControlNavigation、Column Navigation 和 Grid Navigation。当该属性设置为 ControlNavigation 时，按 Tab 键根据 TabIndex 将焦点切换到下一个控件。这一设置优先于 WrapCellPointer 和 TabAcrossSplits。

　　WrapCellPointer 属性决定在任何单个的拆分中 tab 键和箭头键的行为。如果该属性设置为 True，且当前单元位于最后一列，这时最终用户按 tab 键则使第一列的下一行变成当前的单元。不过，如果当前单元位于最后一行的最后一列时，这时就没有地方可以换行。

　　TabAcrossSplits 属性决定当网格中存在两个或多个拆分时 tab 和箭头键的行为。如果该属性设置为 True，且当前单元位于任何一个拆分的最后一列，则按Tab或箭头键将使当前单元跳 到下一个拆分的第一列。当前单元仍保持相同的行位置。

　　注意 如果 WrapCellPointer 和 TabAcrossSplits 属性都设置为 True，则只有当前单元位于最后一个拆分的最后一列时才会换行。这时当前单元将换到第一个拆分的第一列中的下一行。

　　自定义列集合

　　每一个 Split 对象都有一个 Columns 属性，允许用户来操作一个 Column对象的集合。通过这样做，可以更改每个 Split 对象的外观。例如，可以用一个拆分包含显示姓氏字段和名字字段的两个列，而第二个拆分则显示电话字段和地址字段。要实现这一目标，需要将其它的每一列的 Visible 属性设置为 False，如下所示：

　　' 枚举 Columns 集合，对每一个 Column 对象的 DataField 属性

　　' 进行测试。如果测试失败，则隐藏这一列。

Dim i As Integer' 隐藏除 ProductName 列之外的所有列。For i = 0 To DataGrid1.Splits(0).Columns.Count - 1　　If DataGrid1.Splits(0).Columns(i).DataField  "ProductName" Then　DataGrid1.Splits(0).Columns(i).Visible = False　　End IfNext i' 隐藏除 UnitPrice 列之外的所有列。For i = 0 To DataGrid1.Splits(0).Columns.Count - 1　　If DataGrid1.Splits(1).Columns(i).DataField  "UnitPrice" Then　DataGrid1.Splits(1).Columns(i).Visible = False　　End IfNext I