DataGrid控件的使用三

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

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

添加和删除列
要在运行时添加列，可以使用Add方法。如果首先声明一个变量，然后给它分配一个新对象，就可以用简洁的代码设置各种属性。
Private sub Add column()
'在最右边的位置添加一列。然后设置其可见性、宽度、
'标题和对齐属性。DataField属性指定
'该列将绑定到哪个字段。
Dim c As Column
Set c = datagrid 1。Columns.Add(DataGrid1。Columns.Count)
与c
。Visible = True
。宽度= 1000
。Caption = "我的新专栏"
。data field = adodc 1 . recordset . fields(" product name ")。名称
。alignment = dbgrright
end with
end sub
您可以使用方法删除任何列。确保使用ColIndex参数指定要删除的列。下面的代码删除被单击的列。
Private Sub datagrid 1 _ head click(ByVal ColIndex As Integer)
datagrid 1。删除ColIndex
End Sub

隐藏列
通过将Visible属性设置为False，可以隐藏任何列。当您想要限制用户可以查看或编辑的列时，此功能特别有用。下面的示例遍历Columns集合，隐藏除少数列之外的所有列。
Private subhide columns()
'使用DataField属性确定要测试的列。
'只显示三列:产品名称、单价和
'单位库存。对于DataGrid1中的每个c，
Dim c As Column
。columns
Select Case c . data field
Case " product name "
c . Visible = True
Case " unit price "
c . Visible = True
Case " units in stock "
c . Visible = True
c . caption = " in stock " '更改此列的标题。
Case Else '隐藏所有其他列。
c . Visible = False
End Select
Next c
End Sub

操作数据网格视图
“拆分”网格使最终用户能够拥有同一数据的多个视图。例如，假设您有一个包含十个字段的大表。在这种情况下，在控件中查看的记录集将有十列宽，除非窗体非常宽，否则用户将无法同时看到所有列的内容。而且，假设用户只对第一列和最后一列感兴趣(例如，第一列是姓名，最后一列是电话号码)。为了同时看到两端的列(不需要重新排列顺序)，可以拆分网格。

创建拆分对象
在设计时，您可以创建拆分。具体步骤是:右键网格，点击编辑，右键，点击拆分。通过右击控件并单击“属性”以显示“属性页”对话框，可以编辑这种拆分。您可以使用“分割”选项卡来自定义分割。要删除分割，右键单击分割，然后单击删除。
在运行时，最终用户也可以通过单击位于该网格控件左下方的右侧选项卡来手动拆分网格(除非不允许此操作)，如下图所示:

默认情况下，DataGrid控件包含一个拆分对象。防止最终用户添加拆分的代码是:
datagrid1.splits (0)。allowsizing = false。

在程序中添加和删除拆分
DataGrid控件包含拆分对象的集合。若要在程序中添加拆分，可以使用Add方法，如下所示:
datagrid 1 . splits . Add 1
请注意，Add方法需要一个新的拆分索引作为其参数。若要添加拆分，应将此index参数设置为Splits集合的Count属性的值。
您可以使用拆分集的Add方法，根据实际需要在程序中添加拆分。由于添加两个以上的拆分将使网格难以使用，因此可以使用该集合的Count属性来限制拆分的数量。