[alma2]

كود الانتقال للجدول الثاني من خلال Button5 على أن تكون الأعمدة متطابقة
أضفت Label1 لاظهار رقم السجل الحالي من مجموع السجلات أثناء التنقل بالأزارير

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & Application.StartupPath & "\asc.mdb")

   Dim dt As New DataTable
   Dim WithEvents bs As New BindingSource With {.DataSource = dt}

   Dim sqlstrnp As String = "SELECT * FROM [{0}]" ' الصفر هنا ليس اسم جدول فلا تغيره



   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Dim sql As String = String.Format(sqlstrnp, "1") 'تحديد الجدول الأول

       Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
       dataadapter1.Fill(dt)

       TextBox1.DataBindings.Add("text", bs, "الوتد")
       TextBox2.DataBindings.Add("text", bs, "المصب")
       TextBox3.DataBindings.Add("text", bs, "جريانه")
       TextBox4.DataBindings.Add("text", bs, "المسافة")
       TextBox5.DataBindings.Add("text", bs, "التجزئة")

   End Sub


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       bs.MoveFirst()
   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       bs.MoveNext()
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       bs.MovePrevious()
   End Sub
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       bs.MoveLast()
   End Sub
   Private Sub bindingsource1_PositionChanged(sender As Object, e As System.EventArgs) Handles bs.PositionChanged
       Label1.Text = bs.Position + 1 & " / " & bs.Count
   End Sub

   Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

       'تغيير الجدول
       Dim sql As String = String.Format(sqlstrnp, "2") 'تحديد الجدول الثاني

       Dim dataadapter1 As New OleDbDataAdapter(sql, conn)
       dt.Clear()
       dataadapter1.Fill(dt)

   End Sub

End Class