[سعود]

التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه

PHP كود :

Imports System.Data.OleDb

Module Module1
    Public ConStr As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Gulf.accdb;User ID=Admin;jet oledb:database password=123;"
    Public Con As New OleDbConnection(ConStr)
    Public DR_Buldan As OleDb.OleDbDataReader
    Public Cmd As New OleDb.OleDbCommand
    Public DTS_Buldan As New DataTable
    Public MySqlSreach As String
End Module 


والاجراء التالي تم تعديله:

PHP كود :

Private Sub MyFeilds()
        txtDawlah.DataBindings.Clear()
        txtAsimah.DataBindings.Clear()
        txtDawlah.DataBindings.Add("text", DTS_Buldan, "Dawlah")
        txtAsimah.DataBindings.Add("text", DTS_Buldan, "Asimah")
    End Sub 


و الازرار كالتالي:

PHP كود :

Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click
        BindingContext(DTS_Buldan).Position = 0
    End Sub

    Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnLast.Click
        BindingContext(DTS_Buldan).Position = BindingContext(DTS_Buldan).Count - 1
    End Sub

    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
        BindingContext(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click
        BindingContext(DTS_Buldan).Position -= 1
    End Sub