datagrid分页问题？

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="DataGridPaging.aspx.vb" Inherits="DataGridPaging"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  <HEAD>
    <meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
  </HEAD>
  <body MS_POSITIONING="GridLayout">
    <form id="Form1" runat="server">
      <asp:datagrid id="MyDataGrid" runat="server" AlternatingItemStyle-BackColor="#eeeeee"
   HeaderStyle-BackColor="#aaaadd" Font-Size="8pt" Font-Name="Verdana" CellSpacing="0"
    CellPadding="3" GridLines="Both" BorderWidth="1" BorderColor="black"
 OnPageIndexChanged="MyDataGrid_Page" PagerStyle-HorizontalAlign="Right"
  PagerStyle-Mode="NumericPages" PageSize="5" AllowPaging="True">
        <AlternatingItemStyle BackColor="#EEEEEE"></AlternatingItemStyle>
        <HeaderStyle BackColor="#AAAADD"></HeaderStyle>
        <PagerStyle HorizontalAlign="Right" Mode="NumericPages"></PagerStyle>
      </asp:datagrid>
      <p style="font-size:9pt">
        <asp:label id="lblPageCount" runat="server"></asp:label>&nbsp;
        <asp:label id="lblCurrentIndex" runat="server"></asp:label>
        <asp:linkbutton id="btnFirst" onclick="PagerButtonClick" runat="server"
 Font-Name="verdana" Font-size="8pt" ForeColor="navy" CommandArgument="0">
 </asp:linkbutton>&nbsp;
        <asp:linkbutton id="btnPrev" onclick="PagerButtonClick" runat="server"
 Font-Name="verdana" Font-size="8pt" ForeColor="navy" CommandArgument="prev">
 </asp:linkbutton>&nbsp;
        <asp:linkbutton id="btnNext" onclick="PagerButtonClick" runat="server"
 Font-Name="verdana" Font-size="8pt" ForeColor="navy" CommandArgument="next">
 </asp:linkbutton>&nbsp;
        <asp:linkbutton id="btnLast" onclick="PagerButtonClick" runat="server"
 Font-Name="verdana" Font-size="8pt" ForeColor="navy" CommandArgument="last">
 </asp:linkbutton>
      </p>
    </form>
  </body>
</HTML>

解决方案 »

  1.   

    Imports System.Data.SqlClient
    Imports System.Data
    Imports System.Web.UIPublic Class DataGridPaging
      Inherits System.Web.UI.Page  Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
      Protected WithEvents btnFirst As System.Web.UI.WebControls.LinkButton
      Protected WithEvents btnPrev As System.Web.UI.WebControls.LinkButton
      Protected WithEvents btnNext As System.Web.UI.WebControls.LinkButton
      Protected WithEvents btnLast As System.Web.UI.WebControls.LinkButton
      Protected WithEvents lblCurrentIndex As System.Web.UI.WebControls.Label
      Protected WithEvents lblPageCount As System.Web.UI.WebControls.Label
      Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region " Web Form Designer Generated Code "  'This call is required by the Web Form Designer.
      <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()  End Sub  Private Sub Page_Init(ByVal sender As System.Object,_
       ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
      End Sub#End Region  Private Sub Page_Load(ByVal sender As System.Object,_
       ByVal e As System.EventArgs) Handles MyBase.Load
        btnFirst.Text = "最首页"
        btnPrev.Text = "前一页"
        btnNext.Text = "下一页"
        btnLast.Text = "最后页"
        OpenDatabase()
        BindGrid()
      End Sub
      Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        Dim startIndex As Integer
        startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
        MyDataGrid.CurrentPageIndex = e.NewPageIndex
        BindGrid()
        ShowStats()
      End Sub  Sub BindGrid()
        Dim myConnection As SqlConnection = cn
        Dim ds As DataSet = New DataSet()
        Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from Orders", myConnection)
        adapter.Fill(ds, "Orders")
        MyDataGrid.DataSource = ds.Tables("Orders").DefaultView
        MyDataGrid.DataBind()
        ShowStats()  End Sub  Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        'used by external paging UI
        Dim arg As String = sender.CommandArgument    Select Case arg
          Case "next"
            If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
              MyDataGrid.CurrentPageIndex += 1
            End If
          Case "prev"
            If (MyDataGrid.CurrentPageIndex > 0) Then
              MyDataGrid.CurrentPageIndex -= 1
            End If
          Case "last"
            MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
          Case Else
            'page number
            MyDataGrid.CurrentPageIndex = System.Convert.ToInt32(arg)
        End Select
        BindGrid()
        ShowStats()
      End Sub  Sub ShowStats()
        lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页"
        lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页"
      End Sub Public cn As New SqlClient.SqlConnection()
      Public Sub OpenDatabase()
        cn.ConnectionString = "Server=.;Database=NorthWind;User Id=sa;Password=;"
        cn.Open()
      End Sub
    End Class
      

  2.   

    PagerStyle.NexpageText="下一页"
    PagerStyle.PrevPageText="上一页"