文章分类 | 推荐文章 | 最新文章 | 热点文章 | 最新软件 | 精品软件 | 下载排行 | 推荐下载 | 免费看大片 | WPS | 杀毒软件
清风网络
首 页 软件下载 网络学院 数码学院
QQ 电脑入门 游戏 操作系统 图形处理 办公软件 媒体动画 精文荟萃 工具软件 网络编程 程序开发 网络技术 认证考试 网站建设 文章专栏
当前位置:清风网络学院程序开发VBDataGrid 控件的使用
精品推荐
特别推荐
·VB表格控件总览与例程分析
·用VB6.0制作画图板
·VB打造超酷个性化菜单(六)
·MSHFlexGrid 控件的应用
·Visual Basic 控件简介
·利用硬盘序列号计算软件注册码
·计算机等级考试二级VB常用算法:排序
·用diskid.dll和disk32.dll获得硬盘序列号
·VB6中使用Winsock穿越各种代理的实现
·在VFP、VB应用程序中激活鼠标功能
热点TOP10
·vb 高手搜集-常见问题总结(1)
·vb高手搜集-常见问题总结(3)
·自己动手做一个数学函数作图器
·利用VB6.0实现五线谱作曲工具
·VB实现程序的隐形
·vb高手搜集-常见问题总结(2)
·vb高手搜集-常见问题总结4(终章)
·Visual Basic通信程序设计
·用VB编写记事本
·窗体控件大小随窗体大小变化而变化

DataGrid 控件的使用

日期:2007年12月29日 作者: 查看:[大字体 中字体 小字体]


    ' 进行测试。如果测试失败,则隐藏这一列。
    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 连接”的步骤操作。
    2. 在窗体上放置一个 ADO Data 控件和一个 DataGrid 控件。
    3. 将 ADO Data 控件的ConnectionString 属性设置为 Northwind 的数据源。
    4. 设置 ADO Data 控件的 RecordSource 属性。在“属性”窗口中,单击“记录源”并输入 Select ProductName, UnitPrice,(UnitPrice * .082) As Tax From Products。
    5. 将 DataGrid 控件的 DataSource 属性设置为这个 ADO Data 控件。
    6. 运行该工程。

    与类模块一起使用 DataGrid 控件
    如果想要访问以自定义格式或以 ODBC 驱动程序不直接支持的格式存放的数据,可以创建一个类来封装该数据。然后可以编写该类的自定义函数来检索这些数据。这样该类就变成了一种数据源,可以被任何数据使用者(如DataGrid 控件)使用。

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




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

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

相关文章:
·为什么iexplore.exe在打开网页时CPU使用会100%?
·溯雪使用说明
·键盘的使用与指法训练
·GHOST使用方法(图解)
·Firefox 使用常见问题和解决方法
·注册表应用100例—注册表使用全攻略之十一
·Vista系统使用技巧总结
·教您如何使用无线上网全攻略
·TninkPad笔记本电池使用指南
·GM使用命令以及物品怪物中文清单1
相关软件:
·黑客视频教程 VMware虚拟机的安装和使用
·黑客视频教程-灰鸽子远控使用教程
·使用GPMC随心所欲管理组策略
·Adobe Photoshop CS 2 简体中文使用指南
·数码相机购买使用宝典 V1.03.29
·FLASH 8中文使用手册
·流光使用
·IIS4使用手册
·Linux 系统命令及其使用详解(大全)
·触网浏览器的使用

特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源:http://www.vipcn.net
| 帮助(?) | 版权声明 | 友情连接 | 关于我们 | 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved. 鄂ICP备05000083号Powered by:viphot