reefcrazed
asked on
Loading 100 rows, reload after you hit the last row
It sounds easy to do, but I have written several things that did not work. I tried to create a function for this and it partially worked. Starting over now, this is all I have.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(Dat aSet11, 1, 100, "table")
End Sub
Private Sub NavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.BindingContext(DataSet1 1, "table").Position = (Me.BindingContext(DataSet 11, "table").Position - 1)
Me.PositionChanged()
End Sub
Private Sub navNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navNext.Click
Me.BindingContext(DataSet1 1, "table").Position = (Me.BindingContext(DataSet 11, "table").Position + 1)
Me.PositionChanged()
End Sub
Public Sub PositionChanged()
Me.navlocation.Text = (((Me.BindingContext(DataS et11, "table").Position + 1).ToString + " of ") _
+ Me.BindingContext(DataSet1 1, "table").Count.ToString)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(Dat
End Sub
Private Sub NavPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.BindingContext(DataSet1
Me.PositionChanged()
End Sub
Private Sub navNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles navNext.Click
Me.BindingContext(DataSet1
Me.PositionChanged()
End Sub
Public Sub PositionChanged()
Me.navlocation.Text = (((Me.BindingContext(DataS
+ Me.BindingContext(DataSet1
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER