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 With
　　　　End Sub
　　　　可以使用方法来删除任意一列。请确保使用 ColIndex 参数来指定要删除的列。下面的代码将删除被单击的列。
　　　　Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
　　　　　　　DataGrid1.Columns.Remove ColIndex
　　　　End 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 c
　　　　End 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.Count
　　　　End If

　　　　使拆分同步
　　　　当拆分多于一个时，可能希望控制这些拆分如何滚动。例如，在一个具有三个拆分的网格中，可以决定只让第一个和第三个拆分同步，而让中间的拆分独立地滚动。要同步任何两个（或多个）拆分，只需将每个 Split 对象的 ScrollGroup 属性设置为同一个值。
　　　　'' 使第一个和第三个 Split 对象同步。
　　　　With DataGrid1
　　　　　　.Splits(0)
　　　　.ScrollGroup = 1
　　　　.Splits(1).ScrollGroup = 2
　　　　.Splits(2).ScrollGroup = 1
　　　　End 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 If
　　　　Next 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 If
　　　　Next I