　　　　使用 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

　　　　使用 Bookmarks 和 SelBookmarks 跟踪记录
　　　　Bookmarks 和 SelBookmarks 提供了标记记录的一种手段。当编写应用程序中的特定功能（诸如允许最终用户手工地选择多个不相邻的记录，进行所选记录的大批更新）时，这就很有必要。在这些情形中，需要标记哪些记录已被选择，因此可以使用 SelBookmarks 集合及其属性。
　　　　有两个函数，分别是 CellText 和 CellValue 方法，需要标记才能正确执行。

　　　　标记用户的选择
　　　　SelBookmarks 集合包含所有选定的记录的书签。当最终用户手工选择记录时（即在单击时按住 CTRL 键），每一个选定的记录的书签都会加入到该集合中。使用标准的循环，用户可以知道已经选定了什么，也可以保存书签（因为可能需要恢复某个值），以及执行操作：
　　　　Dim i as Integer ' 计数器
　　　　Dim intCount As Integer
　　　　intCount = DataGrid1.SelBookmarks.Count - 1
　　　　ReDim arrSelBK(intCount) ' 声明用于保存书签的数组。
　　　　For i = 0 To intCount
　　　　　　ArrSelBK(i) = DataGrid1.SelBookmarks(i)
　　　　　　' 在此处执行操作。如果该操作必须被
　　　　　　' 取消，则退出该循环，然后使用该数
　　　　　　' 组来取消这些更改。
　　　　Next i

　　　　通过在程序中添加到 SelBookmarks 集合来选择记录
　　　　通过将记录添加到这个集合，也可以在程序中选定记录。例如，可能有一个显示指定的客户所有订货的网格。如果要高亮显示该客户花费超过 $100的所有记录，则对记录进行过滤，并将结果书签添加到 SelBookmarks 集合。
　　　　Dim rs As Recordset
　　　　Set rs = Adodc1.Recordset

　　　　While Not rs.EOF
　　　　　　If rs!SupplierID = 12 Then
　　　　　　　　DataGrid1.SelBookmarks.Add rs.Bookmark
　　　　　　End If
　　　　　　rs.MoveNext
　　　　Wend

　　　　显示计算结果字段
　　　　假设在表中有一个名为 "Price" 的字段，并且想使用本地税率来计算表中每一项的税费。这就是一个计算结果字段，可以通过修改 DataSource 的查询来计算这个值，并把这个值返回给 DataGrid 控件。
　　　　要在 DataGrid 控件中创建一个计算结果字段
　　　　1. 确认在机器上已为 Northwind 数据库建立了一个OLE DB 数据源；如果还没有创建这样的一个数据源，请按照“创建 Northwind 的OLE DBData 连接”的步骤操作。

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

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

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

DataGrid 控件的使用相关文章：

·Vista系统使用技巧总结

·GHOST使用方法（图解）

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

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