Question

VB.NET中使用AspNetPager控件的详细用法

我使用的是VB，之前从来没有用过AspNetPager控件，而且看不懂C#代码，所以非常苦闷。现悬赏高分求AspNetPager控件的详细用法，Demo代码必须是用VB写的。务必要做的细致，一步一步的说明详细。这年头挣个分不容易，但是为了搞懂AspNetPager，我豁出去了，这点分算什么。
我的数据全部都在DataTable表中，里面有上千条，要交给AspNetPager分页。请问怎么写代码？最好是VB代码，C#的也行，但是注释写详细点。

Answer 1

AspNetPager简单使用方法 AspNetPager作为分页工具,常常用于绑定数据控件,如DataGrid , Repeater等
在这里,简单讲解下 绑定 Repeater 控件的方法,其余控件绑定方法类似:

'全局变量 i 用于 读取 数据集记录的条数(注意:读取一次就够了)
Dim i As New Integer

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If i = 0 Then
con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)
con.Open()
cmd = New SqlCommand()
cmd.Connection = con
cmd.CommandText = "select count(*) from XWNRB "

'AspNetPager控件 可见
Me.AspNetPager1.Visible = True

'AspNetPager控件 每页显示大小为10条记录
Me.AspNetPager1.PageSize = 10

'AspNetPager控件 记录总的记录条数
Me.AspNetPager1.RecordCount = Convert.ToInt32(cmd.ExecuteScalar())

'AspNetPager控件 数据绑定
Me.SHOW_DATA_LIST()
i = i + 1
con.Close()
End If
End Sub

Protected Sub SHOW_DATA_LIST()
con = New SqlConnection(ConfigurationManager.ConnectionStrings("NEWS_ConnectionString").ConnectionString)
sql_Text = "select * from XWNRB where "
da = New SqlDataAdapter(sql_Text, con)
Dim ds As New Data.DataSet

'第一个参数为存储入的数据集为ds
'第二个参数为存储的起始记录序号
'第三个参数为存储的记录每页条数
'第四个参数为存储入的数据集ds中的具体某个表
da.Fill(ds, Me.AspNetPager1.PageSize * (Me.AspNetPager1.CurrentPageIndex - 1), Me.AspNetPager1.PageSize, "NEWS_LIST")

'真正绑定
Me.Repeater2.DataSource = ds.Tables("NEWS_LIST").DefaultView
Me.Repeater2.DataBind()

End Sub

'即每次点击新的页面,或者点击 Pre,Next,Last.....时候都会触发这个事件
Protected Sub AspNetPager1_PageChanged(ByVal src As Object, ByVal e As Wuqi.Webdiyer.PageChangedEventArgs) Handles AspNetPager1.PageChanged
'更新当前所在的页数序列
Me.AspNetPager1.CurrentPageIndex = e.NewPageIndex
'更新完后绑定
Me.SHOW_DATA_LIST()
End Sub

Answer 2

以下是本人在项目中用过的AspNetPage在vb.net下的分页的源码，分享给你，祝你成功!同时希望加分，谢谢！！！

//这是我的DataGrid绑定<因为都是面向对象编程,看起来清楚>

Private Sub InitPageBind()
ds = (New HourRules).GetHourCostomPage(Columnid, "0", "0", "1")
PageCount = Convert.ToInt32(ds.Tables(0).Rows(0).ItemArray(0).ToString)
countLbl.Text = PageCount.ToString
HourDataGrid.DataSource = (New HourRules).GetHourCostomPage(Columnid, AspNetPager1.PageSize.ToString, AspNetPager1.CurrentPageIndex.ToString, "0")
HourDataGrid.DataBind
End Sub

//分页类
Private Sub InitAspNetPager()
AspNetPager1.RecordCount = PageCount
AspNetPager1.CustomInfoText = "总页数： " + PageCount.ToString + " "
AspNetPager1.CustomInfoText += "当前是第 " + AspNetPager1.CurrentPageIndex + " 页"
End Sub

//调用分页方法
Private Sub AspNetPager1_PageChanged(ByVal src As Object, ByVal e As Wuqi.Webdiyer.PageChangedEventArgs)
AspNetPager1.CurrentPageIndex = e.NewPageIndex
Me.InitPageBind
End Sub

Answer 3

没见到过 AspNetPager的官网上有支持 VB的例子或代码。
如果有时间去csdn去问问 陕北吴旗娃（他对他做的控件很热心，只要在.net版块提到分页，前5个留言的势必有这位哥。。。。）

Answer 4

别用AspNetPager了 将来会有很多后续问题出现的 及其复杂