البيانات لا تتحفظ بالكمبو بوكس

بسم الله الرحمن ارحيم

شباب عندى شاشه فاتوره البيانات لا تحفظ عن اغلاق الفاتوره فى الكمبو بوكس

هذا هو كود الفاتوره

Imports System.Data.OleDb
Imports System.Data
Public Class frmSales
    Dim dt As Date = Date.Now() ' تعريف متغير التاريخ

    Dim CnString As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\me2003.mdb"
    Dim Con As New OleDbConnection(CnString)
    ' Dim Conn As New OleDbConnection(CnString)

    Dim DataSet1 As New DataSet
    Dim dataset2 As New DataSet
    Dim dataset3 As New DataSet
    Dim dataset4 As New DataSet
    Dim dataset5 As New DataSet
    Dim dataset6 As New DataSet
    Dim dataset7 As New DataSet


    Dim DataAdapter1 As OleDbDataAdapter
    Dim DataAdapter2 As OleDbDataAdapter
    Dim DataAdapter3 As OleDbDataAdapter
    Dim DataAdapter4 As OleDbDataAdapter
    Dim DataAdapter5 As OleDbDataAdapter
    Dim DataAdapter6 As OleDbDataAdapter
    Dim DataAdapter7 As OleDbDataAdapter
    Dim Dp As OleDbDataAdapter

    Dim CMD As New OleDbCommand

    Dim SQLstr As String
    Dim sqlstr2 As String
    Dim sqlstr3 As String
    Dim sqlstr4 As String
    Dim sqlstr5 As String
    Dim sqlstr6 As String
    Dim sqlstr7 As String

    Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
        ' With DataGridView1.Rows(e.RowIndex)
        'خروج في حالة خلو من المحتوى
        ' If .Cells(1) Is Nothing Then Return
        ' If .Cells(2) Is Nothing Then Return
        'في حالة الخطأ نعلن عليه
        ' Try
        'محاولة القيام بعملية الجمع
        '  .Cells(3).Value = (Convert.ToDecimal(.Cells(1).Value) * Convert.ToDecimal(.Cells(2).Value)).ToString("N02")
        ' Catch ex As Exception
        'للأسف فقد وقع خطأ
        '   .Cells(3).Value = "#ERROR#"
        '  End Try
        '  End With
    End Sub

    Private Sub frmSales_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        DataGridView2.Visible = False 'لاخفاء شاشة الاصناف
    End Sub

    Private Sub frmSales_ClientSizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ClientSizeChanged

    End Sub
    Private Sub frmSales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Me.CenterToScreen()
        butEnter.Enabled = False
        DateTimePicker1.Value = dt 'متغير التاريخ
        SQLstr = "SELECT * FROM item"
        Con.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Con)
        DataAdapter1.Fill(DataSet1, "item") 'التعامل مع جدول الاصناف
        Con.Close()
        DataGridView2.DataSource = DataSet1
        DataGridView2.DataMember = "item"
        DataGridView2.Refresh()
        ''''''''''''''
        sqlstr2 = "select * from buy" ' التعامل مع جدول الفواتير
        Con.Open()
        Dim DataAdapter2 As New OleDbDataAdapter(sqlstr2, Con)
        DataAdapter2.Fill(dataset2, "buy")
        Con.Close()
        'DataGridView1.DataSource = dataset2
        ' DataGridView1.DataMember = "buy"
        'DataGridView1.Refresh()

        txtid.DataBindings.Add("Text", dataset2, "buy.id")
        '''''' 
        sqlstr3 = "select * from bill "
        Con.Open()
        Dim DataAdapter3 As New OleDbDataAdapter(sqlstr3, Con)
        DataAdapter3.Fill(dataset3, "bill")
        Con.Close()
        Call add_number() 'لوضع رقم اخر فاتورة غي شاشة المبيعات   
        '''''''' عرض بيانات العملاء في كمبو بوكس
        sqlstr4 = "select * from cus"
        Con.Open()
        Dim dataadaper As New OleDbDataAdapter(sqlstr4, Con)
        dataadaper.Fill(dataset4, "cus")
        Con.Close()
        For i As Integer = 0 To Me.BindingContext(dataset4, "cus").Count - 1
            Dim AddStr As String = dataset4.Tables("cus").Rows(i).Item(0).ToString
            If AddStr <> "" Then ComboBox2.Items.Add(AddStr)
        Next
        sqlstr2 = "select * from cus"
        Con.Open()
        Dim Db As New OleDbDataAdapter(sqlstr4, Con)
        Db.Fill(dataset5, "cus")
        Con.Close()
        For i As Integer = 0 To Me.BindingContext(dataset5, "cus").Count - 1
            Dim AddStr1 As String = dataset5.Tables("cus").Rows(i).Item(1).ToString
            If AddStr1 <> "" Then ComboBox5.Items.Add(AddStr1)
        Next


        sqlstr6 = "select * from dri"
        Con.Open()
        Dim dataadaper6 As New OleDbDataAdapter(sqlstr6, Con)
        dataadaper6.Fill(dataset6, "dri")
        Con.Close()
        For i As Integer = 0 To Me.BindingContext(dataset6, "dri").Count - 1
            Dim AddStr2 As String = dataset6.Tables("dri").Rows(i).Item(0).ToString
            If AddStr2 <> "" Then ComboBox4.Items.Add(AddStr2)
        Next


        sqlstr7 = "select * from ass"
        Con.Open()
        Dim dataadaper7 As New OleDbDataAdapter(sqlstr7, Con)
        dataadaper7.Fill(dataset7, "ass")
        Con.Close()
        For i As Integer = 0 To Me.BindingContext(dataset7, "ass").Count - 1
            Dim AddStr3 As String = dataset7.Tables("ass").Rows(i).Item(1).ToString
            If AddStr3 <> "" Then ComboBox3.Items.Add(AddStr3)
        Next




        '''''''
        ComboBox1.Items.Add(" مبيعات")
        ComboBox1.Items.Add("مشتريات")
        '''''''''''''''''''''''''
        txtItem.DataBindings.Add("Text", DataSet1, "item.itemname")
        'txtprice.DataBindings.Add("text", DataSet1, "item.sail2")
        txtCost.DataBindings.Add("text", DataSet1, "item.cost") 'لعرض تكلفة مبيعات الصنف
        ' كود لجعل فاتورة المشتريات التكلفة تساوي سعر الشراء
        If ComboBox1.Text = "مشتريات" Then 'للتحويل من فاتورة مبيعات الي فاتورة مشتريات

            txtprice.DataBindings.Add("text", DataSet1, "item.cost") 'لعرض تكلفة مبيعات الصنف
        Else
            txtprice.DataBindings.Add("text", DataSet1, "item.sail2")
        End If
        Exit Sub
        '
        ''''''''''''''''''''''''
        Call dgv2() ' تنسيق الداتا جريد الخاصة بالاصناف
        '''''

        ''''''''
        Call search() ';كود عرض الفاتورة بالرقم

        Call dgv1() ' تصم الداتا جريد فيو الخاصة بالفاتورة البيع
        Call tot() '  البيع حساب اجمالي الفاتورة


        Call SearchBill() 'عرض اسم العميل الخاص بالفاتورة






    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txttotalBill.TextChanged

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub txtItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtItem.Click
        'لعرض الداتا جريد

    End Sub


    Private Sub Butadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butAdd.Click
        If MsgBox("   هل تريد تسجيل فاتورة جديدة بنفس اسم العميل السابق قم بتغير أسم العميل اولاً  ", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "تسجيل فاتورة جديدة") = MsgBoxResult.Cancel Then Exit Sub



        Dim cmd2 As New OleDbCommand ' كود الترقيم التلقائي
        cmd2.CommandType = CommandType.Text
        cmd2.Connection = Con
        cmd2.CommandText = "select max (billnu) from [bill] " ' كود الترقيم التلقائي يعود لا علي قيم في الجدول
        Con.Open()
        Dim a As Integer = cmd2.ExecuteScalar
        Con.Close()
        txtBillNumber.Text = a + 1
        txtBlance.Text = "0"

        Call search() 'كود البحث عن رقم الفاتورة
        Call dgv1() 'أستدعاء تنسيق الداتا جريد
        Call tot() 'مجموع الفاتورة
        Call SaveBill() 'حغظ بيانات الفاتورة
    End Sub

    Private Sub txtq_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtq.KeyPress
        If Asc(e.KeyChar) = 13 Then
            txtprice.Focus()
        End If
    End Sub

    Private Sub txtq_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtq.TextChanged

        txtItem2.Text = ""
        DataGridView2.Visible = False
    End Sub

    Private Sub txtItem2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtItem2.KeyPress
        If Asc(e.KeyChar) = 13 Then
            txtq.Focus()
        End If
    End Sub

    Private Sub txtItem2_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtItem2.TextChanged
        On Error Resume Next
        DataGridView2.Visible = True
        If Trim(txtItem2.Text) <> "" Then
            DataAdapter1 = New OleDbDataAdapter("Select * From item Where itemname like '%" & Trim$(txtItem2.Text) & "%'", Con)
            DataSet1.Clear()
            DataAdapter1.Fill(DataSet1, "item")
            DataGridView2.DataSource = DataSet1
            DataGridView2.DataMember = "item"
            DataGridView2.Refresh()

        Else
        End If
        Call dgv2()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next
        Dim a, b, x, t4, t5, t6, t7 As Double
        Dim t1, t2, t3 As Double
        a = txtprice.Text
        b = txtq.Text
        x = Val(txtq.Text) * Val(txtprice.Text)
        txtTotal.Text = x
        ''''''''''''
        t1 = txtbilltotal.Text 'كود حساب أجمالي الفاتورة
        t2 = txtBlance.Text
        t3 = Val(txtbilltotal.Text) - Val(txtBlance.Text)
        txttotalBill.Text = t3
        '''''''''''''''''''';كود حساب الارباح
        t4 = txtCost.Text
        t5 = Val(a) * Val(b)
        t6 = Val(b) * Val(t4)
        t7 = Val(t5) - Val(t6)
        txtWin.Text = t7
        ''''''''''''
        If txttotalBill.Text < 0 Then
            txttotalBill.ForeColor = Color.Red
            txttotalBill.BackColor = Color.Turquoise
            Label6.Text = " باقي للزبون مبلغ جنية"
            Label6.BackColor = Color.Ivory
        Else
            txttotalBill.ForeColor = Color.Black
            txttotalBill.BackColor = Color.Thistle
            Label6.Text = " باقي لنا مبلغ جنية"
            Label6.BackColor = Color.Red
        End If
        Exit Sub


    End Sub

    Private Sub txtBillNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBillNumber.TextChanged
        ' On Error Resume Next
    End Sub
    Private Sub dgv1()
        ' On Error Resume Next
        ''''
        If DataGridView1 IsNot Nothing Then

            Dim count As Integer = 0 'كود الترقيم التلقائي للداتا جريد فيو

            While (count <= (DataGridView1.Rows.Count - 2))

                DataGridView1.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")

                count += 1

            End While

        End If

        ''''''''''''''''''''''
        DataGridView1.Columns(0).Visible = False
        DataGridView1.Columns(1).Visible = False
        DataGridView1.Columns(2).Visible = True
        DataGridView1.Columns(3).Visible = False
        DataGridView1.Columns(4).Visible = False
        DataGridView1.Columns(5).Visible = False
        DataGridView1.Columns(6).Visible = False
        DataGridView1.Columns(7).Visible = True
        DataGridView1.Columns(8).Visible = True
        DataGridView1.Columns(9).Visible = True
        DataGridView1.Columns(10).Visible = False

        '''''''''''''''''''''

        DataGridView1.Columns(2).Width = 300
        DataGridView1.Columns(7).Width = 120
        DataGridView1.Columns(8).Width = 120
        DataGridView1.Columns(9).Width = 120

        ''''''''''''''''''''''''''''''''''''''''''''''''

        DataGridView1.Columns(2).HeaderText = "أسم الصنف"
        DataGridView1.Columns(7).HeaderText = " الكمية"
        DataGridView1.Columns(8).HeaderText = "السعر "
        DataGridView1.Columns(9).HeaderText = " الاجمالي"
        '''''''''''''''''
        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.MultiSelect = False
        With Me.DataGridView1
            .RowsDefaultCellStyle.BackColor = Color.Aqua
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
        End With
    End Sub

    Private Sub butEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butEnter.Click
        'لحفظ الاصناف بالفواتير
        If Trim(txtBillNumber.Text) <> "" And Trim(txtItem.Text) <> "" Or Trim(txtq.Text) <> "" Then
        Else
            MsgBox("يرجى إدخال البيانات", MsgBoxStyle.Critical, "خطأ في ادخال البيانات")
            Exit Sub
        End If
        If butEnter.Text = "أدخال" Then
            '  Dim sqcomand As New OleDb.OleDbCommand
            CMD.Connection = Con
            CMD.CommandType = CommandType.Text
            CMD.CommandText = "Insert Into buy([billnu],[itemna],[date],[qout],[sail],[totalqout],[win]) values ('" & txtBillNumber.Text & "','" & txtItem.Text & "','" & DateTimePicker1.Text & "','" & txtq.Text & "','" & txtprice.Text & "','" & txtTotal.Text & "','" & txtWin.Text & "')"
            Con.Open()
            CMD.ExecuteNonQuery()
            Con.Close()

            ' If Trim(txtBillNumber.Text) <> "" Then Exit Sub' لعرض ناتج الفاتورة
            Call search()
            Call dgv1()
            Call tot()
            txtq.Text = ""
            txtprice.Text = ""
            txtItem2.Focus()
        Else
            CMD.Connection = Con
            CMD.CommandType = CommandType.Text
            CMD.CommandText = "Insert Into buy([billnu],[itemna],[date],[qin],[cost],[totalqin],[win]) values ('" & txtBillNumber.Text & "','" & txtItem.Text & "','" & DateTimePicker1.Text & "','" & txtq.Text & "','" & txtprice.Text & "','" & txtTotal.Text & "','" & txtWin.Text & "')"
            Con.Open()
            CMD.ExecuteNonQuery()
            Con.Close()


            Call search()
            Call dgv1billBuy() 'عرض فواتير الشراء
            Call totBuy() ' لعرض أجمالي فاتورة الشراء
            txtq.Text = ""
            txtprice.Text = ""
            txtItem2.Focus()
        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next ' كود عرض البحث عن رقم الفاتورة
        If Trim(txtBillNumber.Text) <> "" Then
            Call SearchBill() 'لعرض اسم العميل الخاص بالفاتورة 

            Call search() 'كود البحث برقم الفاتورة
        End If

        If CheckBox1.Checked = True Then
            Call dgv1billBuy() 'فاتورة الشراء
            Call totBuy() 'اجمالي فاتورة الشراء
        Else
            Call dgv1() ' تصم الداتا جريد فيو الخاصة بالفاتورة البيع
            Call tot() '  البيع حساب اجمالي الفاتورة

        End If

       
        butEnter.Enabled = True
    End Sub

    Private Sub txtprice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtprice.KeyPress
        If Asc(e.KeyChar) = 13 Then
            butEnter.Focus()

        End If
    End Sub

    Private Sub txtprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtprice.TextChanged

    End Sub

    Private Sub butEnter_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles butEnter.KeyPress
        '    If Asc(e.KeyChar) = 13 Then
        '  txtItem2.Focus()
        ' End If
    End Sub
    Private Sub tot()
        Dim Total1 As Double ' حساب أجمالي الفاتورة
        Dim Row As DataGridViewRow
        For Each Row In DataGridView1.Rows
            Dim celV1 As DataGridViewTextBoxCell = Row.Cells(9)
            If IsNumeric(celV1.Value) = True Then
                Total1 += celV1.Value
            End If
        Next
        txtbilltotal.Text = Total1
    End Sub

    Private Sub butDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butDelet.Click
        If MsgBox(" هل تريد حذف الصنف الحالي  ", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "حذف سجل") = MsgBoxResult.Cancel Then Exit Sub

        ' حذف صنف من الفاتورة

        Dim SavInto As New OleDb.OleDbCommand
        Dim DataAdapter2 As New OleDbDataAdapter(sqlstr2, Con)
        SavInto.Connection = Con
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "DELETE * FROM buy WHERE id like " & txtid.Text & ""

        Con.Open()
        SavInto.ExecuteNonQuery()
        dataset2.Clear()

        Con.Close()
        ''''
        Call search() 'أستدعاء كود البحث
        If CheckBox1.Checked = True Then
            Call dgv1billBuy() 'فاتورة الشراء
            Call totBuy() 'اجمالي فاتورة الشراء
        Else
            Call dgv1() ' تصم الداتا جريد فيو الخاصة بالفاتورة البيع
            Call tot() '  البيع حساب اجمالي الفاتورة

        End If
        
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


    End Sub

    Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick

    End Sub

    Private Sub DataGridView2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView2.Click
        txtq.Focus()
    End Sub
    Private Sub dgv2() ' تنسيق الداتا حريد فيو الخاصة بالبحث عن الاصناف
        '''''''''''''''''
        DataGridView2.Columns(0).Visible = False
        DataGridView2.Columns(2).Visible = False
        DataGridView2.Columns(3).Visible = False
        DataGridView2.Columns(4).Visible = False
        DataGridView2.Columns(5).Visible = False
        DataGridView2.Columns(6).Visible = False

        DataGridView2.Columns(1).Visible = True

        DataGridView2.Columns(1).Width = 300
        ''''''''''''''''''''''''''''''''''''''''''''''''
        DataGridView2.Columns(1).HeaderText = "أسم الصنف"
        ''''
        DataGridView2.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView2.MultiSelect = False
        With Me.DataGridView2
            .RowsDefaultCellStyle.BackColor = Color.Beige
            .AlternatingRowsDefaultCellStyle.BackColor = Color.White
        End With
        ''''''''''''''''''''


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub search() 'كود البحث برقم الفاتورة

        DataAdapter2 = New OleDbDataAdapter("Select * From buy Where billnu like'" & Trim$(txtBillNumber.Text) & "'", Con)
        dataset2.Clear()
        DataAdapter2.Fill(dataset2, "buy")
        DataGridView1.DataSource = dataset2
        DataGridView1.DataMember = "buy"
        DataGridView1.Refresh()
        DataGridView1.RefreshEdit()
    End Sub
    Private Sub add_number()
        Dim cmd2 As New OleDbCommand ' كود الترقيم لوضع رقم اخر فاتورة في شاشة البيعات
        cmd2.CommandType = CommandType.Text
        cmd2.Connection = Con
        cmd2.CommandText = "select max (billnu) from [bill] " ' كود الترقيم التلقائي يعود لا علي قيم في الجدول
        Con.Open()
        Dim a As Integer = cmd2.ExecuteScalar
        Con.Close()
        txtBillNumber.Text = a


    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'كود لعرض ارقام الغواتير السابقة
        txtBillNumber.Text = txtBillNumber.Text - 1

        Call search()

        If CheckBox1.Checked = True Then
            Call dgv1billBuy() 'فاتورة الشراء
            Call totBuy() 'اجمالي فاتورة الشراء
        Else
            Call dgv1() ' تصم الداتا جريد فيو الخاصة بالفاتورة البيع
            Call tot() '  البيع حساب اجمالي الفاتورة

        End If
        Call SearchBill() 'عرض اسم العميل الخاص بالفاتورة
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'كود لعرض ارقام الغواتير اللاحقة التالية
        txtBillNumber.Text = txtBillNumber.Text + 1
        Call search()
        If CheckBox1.Checked = True Then
            Call dgv1billBuy() 'فاتورة الشراء
            Call totBuy() 'اجمالي فاتورة الشراء
        Else
            Call dgv1() ' تصم الداتا جريد فيو الخاصة بالفاتورة البيع
            Call tot() '  البيع حساب اجمالي الفاتورة

        End If
        Call SearchBill() 'عرض اسم العميل الخاص بالفاتورة
    End Sub
    Private Sub SaveBill()
        'لحفظ بيانات الفاتورة
        CMD.Connection = Con
        CMD.CommandType = CommandType.Text
        CMD.CommandText = "Insert Into bill([billnu],[kind],[kind2],[date]) values ('" & txtBillNumber.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & DateTimePicker1.Text & "')"
        Con.Open()
        CMD.ExecuteNonQuery()
        Con.Close()
        MsgBox("تم حفظ بيانات الفاتورة بنجاح يمكنك الان بدء التسجيل للاصناف")
        butEnter.Enabled = True
        txtItem2.Focus()
        txtItem2.BackColor = Color.Yellow
    End Sub
    Private Sub SearchBill() ';,] كود البحث لعرض اسم العميل مقترن بالفاتورة الخاصة بة
        On Error Resume Next
        DataAdapter3 = New OleDbDataAdapter("Select * From bill Where billnu like'" & Trim$(txtBillNumber.Text) & "'", Con)
        dataset3.Clear()
        DataAdapter3.Fill(dataset3, "bill")
        ComboBox2.DataBindings.Add("Text", dataset3, "bill.kind2")

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "مشتريات" Then 'للتحويل من فاتورة مبيعات الي فاتورة مشتريات
            butEnter.Text = "إدخال"
        Else
            butEnter.Text = "أدخال"
        End If
    End Sub
    Private Sub dgv1billBuy()
        ' On Error Resume Next 'لعرض النتيجة في فاتورة الشراء
        ''''
        If DataGridView1 IsNot Nothing Then

            Dim count As Integer = 0 'كود الترقيم التلقائي للداتا جريد فيو

            While (count <= (DataGridView1.Rows.Count - 2))

                DataGridView1.Rows(count).HeaderCell.Value = String.Format((count + 1).ToString(), "0")

                count += 1

            End While

        End If

        ''''''''''''''''''''''
        DataGridView1.Columns(0).Visible = False
        DataGridView1.Columns(1).Visible = False
        DataGridView1.Columns(2).Visible = True
        DataGridView1.Columns(3).Visible = True
        DataGridView1.Columns(4).Visible = True
        DataGridView1.Columns(5).Visible = True
        DataGridView1.Columns(6).Visible = False
        DataGridView1.Columns(7).Visible = False
        DataGridView1.Columns(8).Visible = False
        DataGridView1.Columns(9).Visible = False
        DataGridView1.Columns(10).Visible = False

        '''''''''''''''''''''

        DataGridView1.Columns(2).Width = 300
        DataGridView1.Columns(3).Width = 120
        DataGridView1.Columns(4).Width = 120
        DataGridView1.Columns(5).Width = 120

        ''''''''''''''''''''''''''''''''''''''''''''''''

        DataGridView1.Columns(2).HeaderText = "أسم الصنف"
        DataGridView1.Columns(3).HeaderText = " الكمية"
        DataGridView1.Columns(4).HeaderText = "التكلفة "
        DataGridView1.Columns(5).HeaderText = " الاجمالي"
        '''''''''''''''''
        DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DataGridView1.MultiSelect = False
        With Me.DataGridView1
            .RowsDefaultCellStyle.BackColor = Color.Aqua
            .AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
        End With
    End Sub
    Private Sub totBuy() 'لعرض أجمالي فاتورة الشراء
        Dim Total1 As Double ' حساب أجمالي الفاتورة
        Dim Row As DataGridViewRow
        For Each Row In DataGridView1.Rows
            Dim celV1 As DataGridViewTextBoxCell = Row.Cells(5)
            If IsNumeric(celV1.Value) = True Then
                Total1 += celV1.Value
            End If
        Next
        txtbilltotal.Text = Total1
    End Sub

    Private Sub CheckBox1_checkchanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ' كود لجعل فاتورة المشتريات التكلفة تساوي سعر الشراء
        ' If CheckBox1.Checked = True Then 'للتحويل من فاتورة مبيعات الي فاتورة مشتريات

        'txtprice.Text = txtCost.Text
        ' Else

        'End If

    End Sub

    Private Sub ComboBox5_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox5.SelectedIndexChanged


    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub
End Class