怎样不用DATAGIRD实现分页显示

Question

对，是什么意思啊，用text显示，还是其他
如果是text，就要绑定

Answer 1

用datalist代替datagrid,然后自已写分页代码.
aspx代码<asp:datalist id=DataList1 runat="server" DataSource="<%# DataSet11 %>">
<ItemTemplate>
<TABLE id="tblGuestMessage" style="BORDER-RIGHT: #9999ff 1px solid; BORDER-TOP: #9999ff 1px solid; BORDER-LEFT: #9999ff 1px solid; WIDTH: 612px; BORDER-BOTTOM: #9999ff 1px solid; HEIGHT: 200px" cellSpacing="0" cellPadding="6" width="612" align="center" border="0">
'此处省略 </TABLE>
</ItemTemplate>
</asp:datalist>.....
用于分布的aspx代码
<table class="gueststylebg" style="BORDER-RIGHT: #9999ff 1px solid; BORDER-TOP: #9999ff 1px solid; BORDER-LEFT: #9999ff 1px solid; WIDTH: 737px; BORDER-BOTTOM: #9999ff 1px solid; HEIGHT: 28px" height="28" cellSpacing="0" cellPadding="0" width="737" border="0">
<tr>
<td style="WIDTH: 435px; HEIGHT: 37px" align="middle" width="435" height="37">共<font color="#ff0000"><asp:label id="lblPageCount" runat="server" ForeColor="red"></asp:label></font>页/<font color="#ff0000"><asp:label id="lblRecordCount" runat="server" ForeColor="red"></asp:label></font>条留言&nbsp;&nbsp;转第<asp:textbox class="text" id="lblcurrentpage" runat="server" Width="51px" AutoPostBack="true" columns="3" maxlength="4"></asp:textbox>
页</td>
<td style="HEIGHT: 37px" align="middle" height="37"><asp:imagebutton id="lbnprevpage" runat="server" ImageUrl="images\button\up.gif" CommandName="prev" width="80" height="13"></asp:imagebutton>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<asp:imagebutton id="lbnnextpage" runat="server" ImageUrl="images\button\down.gif" CommandName="next" width="80" height="13"></asp:imagebutton></td>
</tr>
</table>

Answer 2

接下来是对就的VB代码
Private Sub ListBind()
        '设定datalist的绑定数据,使得它可以被按要求进行翻页
        Dim StartIndex As Integer        '设定导入的起终地址
        StartIndex = CurrentPage * PageSize        SqlDataAdapter1.Fill(DataSet11, StartIndex, PageSize, "guest")
        DataList1.DataBind()        lbnnextpage.Enabled = True
        lbnnextpage.ToolTip = "请向后翻"
        lbnprevpage.Enabled = True
        lbnprevpage.ToolTip = "请向前翻"        If (CurrentPage = (PageCount - 1)) Then
            lbnnextpage.Enabled = False '设定是否允许向后翻页
            lbnnextpage.ToolTip = "已经到最后页"
        End If
        If (CurrentPage = 0) Then
            lbnprevpage.Enabled = False '设定是否允许向前翻页
            lbnprevpage.ToolTip = "已经是最前页"
        End If
        lblcurrentpage.Text = (CurrentPage + 1).ToString
    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '***设定PageSize
        PageSize = 5        If Not IsPostBack() Then
            '计算总共有多少记录            SqlConnection1.Open()   '打开连接
            RecordCount = SqlCmdGetCount.ExecuteScalar()            SqlConnection1.Close() '关闭连接
            '计算总共有多少页
            PageCount = Int(RecordCount / PageSize) + 1            lblPageCount.Text = PageCount.ToString '显示一共多少页
            lblRecordCount.Text = RecordCount.ToString '显示一共多少条留言            CurrentPage = 0                 '初始化当前页数
            ViewState("PageIndex") = 0      '用viewstate保存当前的状态
            ViewState("PageCount") = PageCount            ListBind()
        End If
    End Sub....
Private Sub lbnprevpage_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles lbnprevpage.Click
        '向前翻页
        CurrentPage = ViewState("PageIndex")
        PageCount = ViewState("PageCount")
        If (CurrentPage > 0) Then CurrentPage = CurrentPage - 1
        ViewState("PageIndex") = CurrentPage        ListBind()
    End Sub    Private Sub lbnnextpage_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles lbnnextpage.Click
        '向后翻页
        CurrentPage = ViewState("PageIndex")
        PageCount = ViewState("PageCount")
        If (CurrentPage < (PageCount - 1)) Then CurrentPage = CurrentPage + 1
        ViewState("PageIndex") = CurrentPage        ListBind()
    End Sub

Answer 3

DataList好像也可以实现分页吧！！

Answer 4

上面我给的代码就是用datalist实现的自定义分页.