程序中用实现计划

一、程序功能：为Repeater实现分页

二、窗体设计：

1、新建 Web应用程序，命名为Repeater2，保存路径为（注：我机子上的站的IP是192.168.0.1的主目录是D:\\web文件夹）然后点击确定。

2、向窗体添加一个3行一列的表，向表的第一行中添加一个Repeater控件，向表的第二行中添加两个Label控件向表的第三行中添加四个Button按钮。

3、切换到HTML代码窗口，在＜asp:Repeater id=\"Repeater1\" runat=\"server\"＞和＜/asp:Repeater＞之间添加以下代码：

＜ItemTemplate＞

＜table id=\"Table2\" style=\"FONT-SIZE: x-small\" width=\"498\"＞

＜tr＞

＜td＞＜%#al(Container,\"ployeeid\")%＞＜/td＞

＜td＞＜%#al(Container,\"stname\")%＞＜/td＞

＜/tr＞

＜/table＞

＜/ItemTemplate＞

三、代码设计：

Imports lClient

Public Class WebForm1

Inherits ge

Dim scon As New SqlConnection(\"server=localhost;database=northwind;uid=sa;pwd=123\")

Dim sDA As SqlDataAdapter

Dim ds As DataSet

Dim currentPage As Integer \'记录着目前在哪一页上

Dim maxPage As Integer \'总共有多少页

Const rowCount As Integer = 3 \'一页有多少行

Dim rowSum As Integer \'总共有多少行

\'窗体代码省略

Private Sub Page_Load(ByVal sender As ject, ByVal e As entArgs) Handles ad

If Not PostBack Then

sDA = New SqlDataAdapter(\"select employeeid, lastname from employees order by employeeid\", scon)

ds = New DataSet

原标题：法国再曝马肉丑闻“制药用品”摇身变食品 Try

ll(ds, \"employees\")

\'获取总共有多少行

rowSum = bles(0).unt

Catch ex As Exception

rowSum = 0

End Try

\'如果没有数据，退出过程

If rowSum = 0 Then Exit Sub

\'计算出浏览数据的总页数

If rowSum Mod rowCount ＞ 0 Then

\'有余数要加1

maxPage = rowSum \\ rowCount + 1

Else

\'正好除尽

maxPage = rowSum \\ rowCount

End If

currentPage = 1

\'调用绑定数据过程

readpage(currentPage)

BindData()

xt = maxPage

\'首页和上一页按钮不可见

sible = False

sible = False

End If

End Sub

\'创建一个绑定数据的过程

Sub BindData()

taSource = ds

taBind()

xt = currentPage

End Sub

\'创建一个填充数据集的过程

Sub readpage(ByVal n As Integer)

sDA = New SqlDataAdapter(\"select employeeid, lastname from employees order by employeeid\", scon)

ds = New DataSet

ear()

ll(ds, (n - 1) * rowCount, rowCount, \"employees\")

End Sub

\'首页按钮

Private Sub Button1_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

currentPage = 1

\'调用填充数据集过程

readpage(currentPage)

\'绑定数据

BindData()

\'设置首页、第一页按钮不可见，显示下一页尾页按钮

sible = False

sible = False

sible = True

sible = True

End Sub

\'上一页按钮

Private Sub Button2_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

\'如果现在页是第二页，设置首页和上一页按钮不可见

If xt ＞ 2 Then

sible = True

sible = True

Else

sible = False

sible = False

sible = True

sible = True

End If

currentPage = xt - 1

readpage(currentPage)

BindData()

End Sub

\'下一页按钮

Private Sub Button3_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

\'如果现在页倒数第二页，设置最后页和下一页按钮不可见

If xt ＜ xt - 1 Then

sible = True

sible = True

Else

sible = True

sible = True

sible = False

sible = False

End If

currentPage = xt + 1

readpage(currentPage)

BindData()

End Sub

\'尾页按钮

Private Sub Button4_Click(ByVal sender As ject, ByVal e As entArgs) Handles ick

\'设置当前页为最大页数

currentPage = xt

readpage(currentPage)

BindData()

sible = True

sible = True

sible = False

sible = False

End Sub

End Class

窗体界面如下所示：

查看本文来源

天津盆腔炎治疗费用多少钱
重庆医院白癜风哪家医院好
内江治疗白癜风好的医院