为什么我做的分页程序不能回到第一页呢？

[goldbrighten]

我用datagrid和 sqldataadapter做的分页程序，可以跳到第二页去，但是不能回来，不知道为什么，奇怪啊！程序如下：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


SubMenuID = CInt(Request.Params("SubMenuID"))
If (Not IsPostBack) Then
BindData()
End If



End Sub

Private Sub BindData()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim mySqlDataAdapter As SqlDataAdapter
Dim tables As New KJ.TableDB()
Dim name As String

name = tables.GetTableName(SubMenuID)
mySqlDataAdapter = tables.GetTable(name)
mySqlDataAdapter.Fill(ds, "dd")
dt = ds.Tables("dd")
TableGrid.DataSource = ds.Tables("dd")
TableGrid.DataBind()
End Sub




Private Sub TableGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles TableGrid.PageIndexChanged
TableGrid.CurrentPageIndex = e.NewPageIndex
BindData()
End Sub

[xhan2000]

使用什么分页方式？

[goldbrighten]

<table cellSpacing="0" cellPadding="0" align="center" border="0">
<tr>
<td><asp:datagrid id="TableGrid" SelectedIndex="0" ShowHeader="False" BorderWidth="1px" BackColor="White" BorderStyle="None" BorderColor="#3366CC" Width="611px" CellPadding="4" runat="server" AllowPaging="True" PageSize="12" Height="253px">
<SelectedItemStyle Font-Bold="True" ForeColor="#CCFF99" BackColor="#009999"></SelectedItemStyle>
<ItemStyle ForeColor="#003399" BackColor="White"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="#CCCCFF" BackColor="#003399"></HeaderStyle>
<FooterStyle ForeColor="#003399" BackColor="#99CCCC"></FooterStyle>
<PagerStyle HorizontalAlign="Left" ForeColor="#003399" BackColor="#99CCCC" Mode="NumericPages"></PagerStyle>
</asp:datagrid></td>
</tr>
</table>

[kimmnig]

程序好像没有问题，你要重新做个页面吧，在写上程序

[yohomonkey]

Private Sub BindData()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim mySqlDataAdapter As SqlDataAdapter
Dim tables As New KJ.TableDB()
Dim name As String

name = tables.GetTableName(SubMenuID)
mySqlDataAdapter = tables.GetTable(name)
mySqlDataAdapter.Fill(ds, "dd")
dt = ds.Tables("dd")
TableGrid.DataSource = ds.Tables("dd")
TableGrid.DataBind()
End Sub
这种写法不对！

[yohomonkey]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SubMenuID = CInt(Request.Params("SubMenuID"))
If (Not IsPostBack) Then
BindData()
End If
End Sub

Private Sub BindData()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim mySqlDataAdapter As SqlDataAdapter
Dim tables As New KJ.TableDB()
Dim name As String

name = tables.GetTableName(SubMenuID)
mySqlDataAdapter = tables.GetTable(name)
mySqlDataAdapter.Fill(ds, "dd")
session("dd") = ds.Tables("dd")
TableGrid.DataSource = session("dd")
TableGrid.DataBind()
End Sub

Private Sub TableGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles TableGrid.PageIndexChanged
TableGrid.CurrentPageIndex = e.NewPageIndex
TableGrid.DataSource = session("dd")
TableGrid.DataBind()
End Sub