Как я могу двигаться вперед и назад по строкам таблицы данных?
У меня есть 4 кнопки (Next,Previous,First,Last), которые перемещаются по строкам datatable.
Кнопки первая и последняя работают правильно,но другие кнопки-нет(ничего не происходит, если я нажимаю их, они продолжают указывать на запись 1).
Когда я нажимаю последнюю кнопку, она переходит к последней записи,но когда я нажимаю следующую кнопку, она приводит меня к первой записи вместо того, чтобы сказать мне "больше никаких записей".
Это фотография моей формы: Форма
Это мой код ниже и код формы:
Что я уже пробовал:
Imports Microsoft.VisualBasic Imports System.Data.SqlClient Imports System.Data Partial Class P3 Inherits System.Web.UI.Page Dim ds As New DataSet Dim inc As Integer Dim MaxRows As Integer Dim tbl As DataTable Private Sub NavigateRecords() Gidbx.Text = tbl.Rows(inc).Item(0) Gnamebx.Text = tbl.Rows(inc).Item(1) End Sub Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Response.Write(Session("slctdGarage")) Dim strConnectionString As String Dim instsqlconnection As SqlConnection strConnectionString = "Integrated Security=SSPI;Initial Catalog=MySetOfGarages;Data Source=." instsqlconnection = New SqlConnection(strConnectionString) instsqlconnection.Open() Dim da As New SqlDataAdapter("Select * From Garage", instsqlconnection) da.Fill(ds, "Grg") tbl = ds.Tables("Grg") instsqlconnection.Close() MaxRows = tbl.Rows.Count inc = -1 End Sub Protected Sub Nextrec_Click(sender As Object, e As EventArgs) Handles Nextrec.Click If inc <> MaxRows - 1 Then inc = inc + 1 NavigateRecords() Else Response.Write("No More Rows") End If End Sub Protected Sub Previousrec_Click(sender As Object, e As EventArgs) Handles Previousrec.Click If inc > 0 Then inc = inc - 1 NavigateRecords() ElseIf inc = -1 Then Response.Write("No Records Yet") ElseIf inc = 0 Then Response.Write("First Record") End If End Sub Protected Sub Lastrec_Click(sender As Object, e As EventArgs) Handles Lastrec.Click If inc <> MaxRows - 1 Then inc = MaxRows - 1 NavigateRecords() End If End Sub Protected Sub Firstrec_Click(sender As Object, e As EventArgs) Handles Firstrec.Click If inc <> 0 Then inc = 0 NavigateRecords() End If End Sub End Class
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="P3.aspx.vb" Inherits="P3" %> <form id="form1" runat="server"> <p> id Garage <asp:TextBox ID="Gidbx" runat="server"></asp:TextBox> </p> <p> GarageName <asp:TextBox ID="Gnamebx" runat="server"></asp:TextBox> <asp:Button ID="Firstrec" runat="server" Text="<<" /> <asp:Button ID="Previousrec" runat="server" Text="<" /> <asp:Button ID="Nextrec" runat="server" Text=">" /> <asp:Button ID="Lastrec" runat="server" Text=">>" /> </p> <p> <asp:Button ID="Button1" runat="server" Text="Add Record" /> <asp:Button ID="Button2" runat="server" Text="Update Rec" /> <asp:Button ID="Button3" runat="server" Text="Delete Rec" /> </p> </form>