سؤال يا احبتى فى الله - نسخة قابلة للطباعة

كود :
   Dim Adapter1 As OleDbDataAdapter

    Dim ds As New DataSet()





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

        Dim strConnection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=UsersData.accdb;Persist Security Info=True"

        Dim strSQLq As String = "Select * From Salaries"



        Adapter1 = New OleDbDataAdapter(strSQLq, strConnection)

        Adapter1.Fill(ds)



        Dim bs As New BindingSource()

        bs.DataSource = ds.Tables(0)



        BindingNavigator1.BindingSource = bs

        DataGridView1.DataSource = bs

    End Sub



    Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

        Try

            Dim x As Integer = DataGridView1.CurrentCell.RowIndex

            Dim y As Integer = DataGridView1.CurrentCell.ColumnIndex

            DataGridView1.CurrentCell = DataGridView1(y, x + 1)

            DataGridView1.CurrentCell = DataGridView1(y, x)

            DataGridView1.CurrentCell = DataGridView1(y, x + 1)

            DataGridView1.CurrentCell = DataGridView1(y, x)



            Dim cb As New OleDbCommandBuilder(Adapter1)

            Adapter1.Update(ds)



            ds.Clear()            ' من أجل تحديث كامل السجل

            Adapter1.Fill(ds)

        Catch ex As Exception

            'لم نضع هنا عرض الرسائل ليتجاز الخطأ بسلاسة

            'لأنه خطأ حفظ معلومات

            'اذا ما تجاوز سطر وخلية سيتم حفظ المدخلات

        End Try

    End Sub



    Private Sub DataGridView1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved

        Try

            Dim cb As New OleDbCommandBuilder(Adapter1)

            Adapter1.Update(ds)

        Catch ex As Exception



        End Try

    End Sub