想学学 repeater控件，和它如何翻页

文章没有，例子倒是有一个，希望对你有帮助。
<table cellSpacing="0" borderColorDark="#ffffff" cellPadding="1" width="100%" align="left"
bgColor="#ffffff" borderColorLight="#3677b1" border="1">
<asp:repeater id="rpt_Graduate" runat="server">
<headertemplate>
<tr bgcolor="#ffdcb5">
<th height="26" width="36">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"></div>
</td>
</tr>
</table>
</th>
<th height="26" width="300">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"><font color="#FFFFFF">工具类别</font></div>
</td>
</tr>
</table>
</th>
<th height="26" width="204">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"><font color="#FFFFFF">类别编码</font></div>
</td>
</tr>
</table>
</th>
<th height="26" width="67">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"><font color="#FFFFFF">上移</font></div>
</td>
</tr>
</table>
</th>
<th height="26" width="59">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"><font color="#FFFFFF">下移</font></div>
</td>
</tr>
</table>
</th>
<th height="26" width="61">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center"><font color="#FFFFFF" class="table_head_font">修改</font></div>
</td>
</tr>
</table>
</th>
</tr>
</headertemplate>
<itemtemplate>
<tr>
<td height="24" width="36" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<div align="center">
<%# Container.ItemIndex+1%>
<asp:Label ID="lbl_Order_Id" Visible=False Text='<%# DataBinder.Eval(Container.DataItem,"order_id").ToString() %>' Runat=server/>
</div>
</td>
</tr>
</table>
</td>
<td height="24" width="300" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td class="font_dropshadow">
<div align="center">
<%# DataBinder.Eval(Container.DataItem,"mytext").ToString() %>
</div>
</td>
</tr>
</table>
</td>
<td height="24" width="204" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td class="font_dropshadow">
<div align="center">
<%# DataBinder.Eval(Container.DataItem,"myvalue").ToString() %>
</div>
</td>
</tr>
</table>
</td>
<td height="24" align="center" width="67">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td class="font_dropshadow">
<div align="center">
<asp:HyperLink id="myupHyperlink" runat="server" NavigateUrl='<%# "Jc_GZTreeRightmove.aspx?operate=top&nodeid=" & DataBinder.Eval(Container.DataItem,"nodeid").ToString() %>'>上移</asp:HyperLink>
</div>
</td>
</tr>
</table>
</td>
<td height="24" align="center" width="59">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td class="font_dropshadow">
<div align="center">
<asp:HyperLink NavigateUrl='<%# "Jc_GZTreeRightmove.aspx?operate=down&nodeid=" & DataBinder.Eval(Container.DataItem,"nodeid").ToString() %>' runat="server" ID="mydownHyperlink">下移</asp:HyperLink>
</div>
</td>
</tr>
</table>
</td>
<td height="24" width="61">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td class="font_dropshadow">
<div align="center">
<asp:HyperLink id="myeidtHyperlink" runat="server" NavigateUrl='<%# "Jc_GZTreeRightedit.aspx?nodeid=" + DataBinder.Eval(Container.DataItem,"nodeid").ToString() %>'>修改</asp:HyperLink>
</div>
</td>
</tr>
</table>
</td>
</tr>
</itemtemplate>
</asp:repeater>
<tr>
<td align="right" colSpan="6">共
<asp:label id="RecordCount" Runat="server"></asp:label>条记录┊<asp:linkbutton id="Linkfirst" Runat="server">首页</asp:linkbutton>┊<asp:linkbutton id="Linkpre" Runat="server">上一页</asp:linkbutton>┊<asp:linkbutton id="Linknext" Runat="server">下一页</asp:linkbutton>┊<asp:linkbutton id="Linklast" Runat="server">尾页</asp:linkbutton>┊第<asp:label id="No" Runat="server"></asp:label>/<asp:label id="Ltoalcount" Runat="server"></asp:label>
</FONT>页┊<asp:label id="numofpage" Runat="server"></asp:label>条记录/页┊转到第
<asp:dropdownlist id="toalcount" tabIndex="6" Runat="server" AutoPostBack="True"></asp:dropdownlist>页  
</td>
</tr>
</table>
Sub BindRepeater(ByVal sql As String, ByVal myrepeater As Repeater, Optional ByVal pageNumber As Integer = 0)
        '注意：此处的pageNumber，是我们所说的序列从0开始！
        Dim ds As New DataSet
        Dim myadapter As New OdbcDataAdapter(sql, myCon)
        myadapter.Fill(ds)
        '此段代码来自付平，具体含义从字面可以理解
        Dim pager As New PagedDataSource
        pager.AllowPaging = True
        pager.PageSize = 10
        pager.DataSource = ds.Tables(0).DefaultView
        RecordCount.Text = pager.DataSourceCount
        Ltoalcount.Text = pager.PageCount
        numofpage.Text = pager.PageSize        pager.CurrentPageIndex = pageNumber
        No.Text = pageNumber + 1
        labCurPage.Text = pageNumber        If Ltoalcount.Text = 1 Then 'only 1 page
            Linklast.Enabled = False
            Linknext.Enabled = False
            Linkpre.Enabled = False
            Linkfirst.Enabled = False
        End If
        If Ltoalcount.Text > 1 Then ' more pages>1
            If pageNumber = 0 Then  'the cur is the first page
                Linklast.Enabled = True
                Linknext.Enabled = True
                Linkpre.Enabled = False
                Linkfirst.Enabled = False
            End If
            If pageNumber = Ltoalcount.Text - 1 Then 'the cur is the last page
                Linklast.Enabled = False
                Linknext.Enabled = False
                Linkpre.Enabled = True
                Linkfirst.Enabled = True
            End If
            If 0 < pageNumber And pageNumber < Ltoalcount.Text - 1 Then 'the cur is in the first and last
                Linklast.Enabled = True
                Linknext.Enabled = True
                Linkpre.Enabled = True
                Linkfirst.Enabled = True
            End If
            If pageNumber > pager.PageCount - 1 Then
                Exit Sub
            End If
        End If        Dim i As Integer
        If toalcount.Items.Count > 0 Then
            toalcount.Items.Clear()
        End If
        For i = 0 To pager.PageCount - 1
            toalcount.Items.Add(i + 1)
        Next        myrepeater.DataSource = pager
        myrepeater.DataBind()
        toalcount.Items(pageNumber).Selected = True
    End Sub
    Private Sub toalcount_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toalcount.SelectedIndexChanged
        BindRepeater(labSel.Text, rpt_Graduate, toalcount.SelectedIndex)
    End Sub
    Private Sub Linkpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Linkpre.Click
        Dim i As Integer = labCurPage.Text - 1
        BindRepeater(labSel.Text, rpt_Graduate, i)
    End Sub
    Private Sub Linknext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Linknext.Click
        Dim i As Integer = labCurPage.Text + 1
        BindRepeater(labSel.Text, rpt_Graduate, i)
    End Sub
    Private Sub Linkfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Linkfirst.Click
        BindRepeater(labSel.Text, rpt_Graduate, 0)
    End Sub
    Private Sub Linklast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Linklast.Click
        Dim i As Integer = Ltoalcount.Text - 1
        BindRepeater(labSel.Text, rpt_Graduate, i)
    End Sub
http://www.cnblogs.com/index/archive/2004/09/10/41843.aspx

调试易

想学学 repeater控件，和它如何翻页

解决方案 »