关于DataGrid对象的属性设置(VB)

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
设定表格风格:
       HeaderStyle-BackColor:用来设定第一行(抬头行)的背景颜色
       AlternatingItemStyle-BackColor:用来设定间隔一行的背景颜色
       BorderColor:表格边框的颜色

       设定分页浏览:
       AllowPaging="True":将 DataGrid的AllowPaging属性设定为True,这样就具有分页浏览的功能
       PageSize="10":将 DataGrid的PageSize属性设定为10,表示每一页显示10笔数据
       OnPageIndexChanged="ChangePage":将OnPageIndexChanged属性设定为ChangePage,
                                        表示当上网者改变页次时,将启动ChangePage事件
       设定分页浏览的"下一页"、"下一页"显示:
       PagerStyle-HorizontalAlign:将分页链接显示 DataGrid的右边
       PagerStyle-NextPageText="下一页":表示以下一页取代≥
       PagerStyle-PrevPageText="下一页"表示以上一页取代≤

       设定分页浏览的"1 2 3 ……”页码,增加以下两行代码,不必修改程序:
       PagerStyle-Mode="NumericPages"
       PagerStyle-HorizontalAlign="Right"
       自定义抬头信息:
       AutoGenerateColumns="false":表示我们将自定义抬头信息
       <asp:BoundColumn DataField="au_id" HeaderText="ID号"/>:决定欲输出的字段"au_id"和决定抬头"ID号"
       ItemStyle-HorizontalAlign="right":决定字段的对齐方式
       <Columns></Columns>:把上述内容放在<Columns>标记之中
       (bte1版的标记是<property name="Columns"></property>)

       设定 DataGrid字段的链接
       原代码<asp:BoundColumn DataField="au_id" HeaderText="ID号" />
       现代码
        <asp:HyperLinkColumn DataTextField="学号"
             HeaderText="学号"
             DataNavigateUrlField="学号"
             DataNavigateUrlFormatString="students.aspx?id={0}"
             Target="_blank" />
       DataGrid与字段排序
      AllowSorting="true"表示启动 DataGrid排序功能
      OnSortCommand="SortPage"当上网者按下抬头的“排序”链接时,将启动SortPage时间程序。
      (其实 DataGrid并不具有排序功能,我们必须要让具备排序功能的DataView先排序,
      然后再将其指定给DateGrid。
           之前我们建立DataView 对象并且将其与DateGrid连接(尚未具备排序功能):
           Grid1.DataSource = CreateDataView( "pubs", "Authors" )
           Grid1.DataBind()
           程序要修改为:
           Dim DV As DataView
           DV CreateDataView( "pubs", "Authors" )
           指定要排序的字段
           DV.Sort=欲排序的字段
           将排序过的DataView 对象指定给DateGrid
           Grid1.DataSource = DV
           Grid1.DataBind()
         &nb

seover="window.status='正文-- 关于 DataGrid 对象属性设置( VB)';return true">
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
VB DataGrid分页 请看: 数据库:test2000.mdb 表:numbers 字段:Id(自动编号),anumber(数字) 因为DataGrid控件我们采用直接绑定记录集来显示数据.所以分页处理我们采用了间接的办法,定义另一个记录集objrs,将分页后的记录集付给objrs.然后绑定DataGrid ''效果还不错 , 我加了详细地注释,像pagesize, AbsolutePage的用法可参考msdn VB中新建工程,form中添加DataGrid控件,按钮cmdPrevious和cmdNext,文本框txtPage ''引用microsoft active data object 2.x object library Option Explicit Dim conn As ADODB.Connection Dim lCurrentPage As Long Private Sub cmdNext_Click() lCurrentPage = lCurrentPage + 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub cmdPrevious_Click() If lCurrentPage > 1 Then lCurrentPage = lCurrentPage - 1 Call Loadcontrol(lCurrentPage) End If End Sub Private Sub Form_Load() Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test2000.mdb;" lCurrentPage = 1 Call Loadcontrol(lCurrentPage) End Sub Private Sub Loadcontrol(lPage As Long) Dim adoPrimaryRS As ADODB.Recordset Dim lPageCount As Long Dim nPageSize As Integer Dim lCount As Long ''每页显示的纪录 nPageSize = 10 Set adoPrimaryRS = New ADODB.Recordset adoPrimaryRS.Open "select * from numbers", conn, adOpenStatic, adLockOptimistic adoPrimaryRS.PageSize = nPageSize ''页数 lPageCount = adoPrimaryRS.PageCount If lCurrentPage > lPageCount Then lCurrentPage = lPageCount End If adoPrimaryRS.AbsolutePage = lCurrentPage ''定义另一个记录集 Dim objrs As New ADODB.Recordset ''添加字段名称 For lCount = 0 To adoPrimaryRS.Fields.Count - 1 objrs.Fields.Append adoPrimaryRS.Fields(lCount).Name, adVarChar, adoPrimaryRS.Fields(lCount).DefinedSize Next ''打开记录集 objrs.Open ''将指定记录数循环添加到objrs中 For lCount = 1 To nPageSize objrs.AddNew objrs!id = adoPrimaryRS!id objrs!anumber = adoPrimaryRS!anumber adoPrimaryRS.MoveNext Next ''绑定 Set DataGrid1.DataSource = objrs ''在文本框显示页数 txtPage = lPage & "/" & adoPrimaryRS.PageCount End Sub Private Sub Form_Unload(Cancel As Integer) If Not conn Is Nothing Then conn.Close End If Set conn = Nothing End Sub ‘文本框中输入页数,回车跳转到指定位置 Private Sub txtPage_KeyDown(KeyCode As Integer, Shift As Integer) lCurrentPage = Val(txtPage.Text) Call Loadcontrol(lCurrentPage) End Sub
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看README.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值