[VB.NET]DataGrid控件中分页时,每页显示最多十页索引,其他为

VB.NET源码-156个实用实例哦…… <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
DataGrid控件中分页时,每页显示最多十页索引,其他为"..." 号,怎么该这10页啊?
就是 "1 2 3 4 5 6 7 8 9 10 ... "
怎么让他多显几页啊?上一页 下一页 能不能插入到他的左右两边啊
像百度图片那样:

“首页 上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 下一页 尾页 "

我只能写成这样“
"1 2 3 4 5 6 7 8 9 10 ... "下面再写 且只会写到10页
"首页 上一页 下一页 尾页 "
没办法让他们在一行吗?
小弟学的是vb.net,办法吗?
__________________________________________________________________________
可以用表格,手动控制输出分页...按照你想要的顺序输出..

或者是将控制页数的放在一个DIV中..也可以....
__________________________________________________________________________
简单来说,就是自己写Response.Write( " 上一页 "); 之类.

不过麻烦点...
__________________________________________________________________________
我也在为此问题发愁呢,哪位专家给解决一下。
__________________________________________________________________________
其实跟Web里面的DataGrid分页差不多的,更确切的说要比Web里面更简单一些,这就要看你对分页的原理了不了解了。

可以用微软提供的DataGrid控件来解决分页问题,不需要使用第三方控件。
楼主可以先到我的小论坛去熟悉一下分页的基本概念。(显示帖子页面,查看回复页面)
www.xproer.com/bbs
然后我再跟你讲解一下目前最简单的一种分页方法。

通常我们为了考虑分页SQL语句的性能,最好使用四个按钮来实现分页。
首页,上一页,下一页,尾页
这四个按钮事件内部分页用四条SQL语句来实现从数据库中读取相应的数据。

通常我们的数据表中有ID列,这个基本上是用来分页的。如果我们的数据显示形式是从最新的到最旧的显示方式:
ID显示:
100
99
98
97
96
95
94
93
92
91
90
89
88
87
86
85
84
83

毫无疑问,首页是前10条(假设一页显示10条数据)是从100开始到91,这个SQL最简单:

select top 10 from Table1 order by ID DESC (这个这是首页的SQL语句)

那么下一页就是ID要比91小的前10条数据,

select top 10 from Table1 where ID <@ID order by ID DESC (这是下一页SQL语句)

尾页SQL语句也是超简单

select top 10 from Table1 order by ID ASC (这个是尾页)

上一页SQL语句

select top 10 from Table1 where ID> @ID order by ID DESC (上一页SQL语句)

好了,基本分页SQL语句搞定了,那么重要的就是如何取到这些ID值,我们可以将数据读取前台,通过JS获取这些相应的ID值,然后传给服务端控件,这样我们就可以轻松的实现分页了。

基本上这算得上是最简单的分页了同时也是效率最高的,因为还有一些SQL语句,比如
select top @PageSize * from (select top @DataCount * from AdminTB order by ID ASC)a order by ID DESC; ");

原理:
假设有30条数据:
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30

现在我们要取中间的10条数据,则SQL语句要这样写
select top 10 * from (select top 20 * from AdminTB order by ID ASC) order by ID DESC; ");
实际上的效果如下
(1,2,3,4,5,6,7,8,9,[ 10,11,12,13,14,15,16,17,18,19,20 ]),21,22,23,24,25,26,27,28,29,30

select top 20 * from AdminTB order by ID ASC是取得 () 部分数据
select top 10 * from (select top 20 * from AdminTB order by ID ASC) order by DESC;取得是 [] 部分。这下明白了吧


不过遗憾的是这种分页是效率最低的,因为 @DataCount 会随着你的数据增加而增大,所以我们提倡用第一种,也就是我上面讲的。
__________________________________________________________________________
up
__________________________________________________________________________
看看下面这篇文章,我相信你能找到答案。
http://blog.csdn.net/zjysource/archive/2007/06/10/1646443.aspx
__________________________________________________________________________
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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值