' اول سجل
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
Dim ds As New DataSet
Me.BindingContext(ds, "Ericsson_MW").Position = 0
showData(index)
End Sub
' السجل التالي
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error Resume Next
Dim ds As New DataSet
Me.BindingContext(ds, "Ericsson_MW").Position += 1
showData(index)
End Sub
' السجل السابق
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
Dim ds As New DataSet
Me.BindingContext(ds, "Ericsson_MW").Position -= 1
showData(index)
End Sub
' السجل الاخير
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim ds As New DataSet
Me.BindingContext(ds, "Ericsson_MW").Position = Me.BindingContext(ds, "Ericsson_MW").Count - 1
showData(index)
End Sub