　　　　添加、删除或隐藏列
　　　　通过使用 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 控件的使用

默认情况下，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 键和箭头键的行为

上一页 [1] [2] [3] [4] [5] [6] [7] 下一页

上一篇:Visual Basic中DataCombo 和 DataList 控件的使用

下一篇:文件系统控件的使用

DataGrid 控件的使用相关文章：

·推荐：漂亮的手机上使用的墙纸图片分享下载

DataGrid 控件的使用相关软件：

·黑客视频教程 VMware虚拟机的安装和使用

·使用GPMC随心所欲管理组策略

·Adobe Photoshop CS 2 简体中文使用指南

·Microsoft Visio 2000 完全使用手册

·Auto CAD R14高级使用教程

·AUTOCAD 2000使用指南(PDF)

·Auto CAD R14高级使用教程

·虚拟光驱的使用方法（全）swf

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:vipcn