منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

 Private Sub BuyPill_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        'Hot Key adding New Item

        If e.KeyCode = Keys.Insert Then

            Item_Search1.ShowDialog()

        End If

        'Hot Key saving buypill & its contents

        If e.KeyCode = Keys.F10 Then

            If BuyInvoiceNo.Text = Nothing Then

                MsgBox("برجاء ادخال رقم الفاتورة")

                BuyInvoiceNo.Focus()

            ElseIf BuyImporter.Text = Nothing Then

                MsgBox("برجاء اختيار المورد")

                BuyImporter.Focus()

            ElseIf BuyCash.Checked = False And BuyPostpone.Checked = False Then

                MsgBox("برجاء اختيار نوع التعامل نقدي او اجل")

                BuyCash.Focus()

            ElseIf DataGridView1.Rows.Count = 0 Then

                MsgBox("لا توجد اصناف بالفاتورة لحفظها")

            Else

                '=========================================

                ' Check Buy Query Calculations

                BuyCalc()

                ' Update BuyPill Details 

                'Public sub Update_Operations()

                For i As Integer = 0 To DataGridView1.Rows.Count - 1

                    Operationscmd = New OleDbCommand(" Update Operations SET BuyDiscound=" & DataGridView1(9, DataGridView1.Rows(i).Index).Value & ",BuyEarn = " & DataGridView1(11, DataGridView1.Rows(i).Index).Value & ", BuyNotes ='" & DataGridView1(12, DataGridView1.Rows(i).Index).Value & "', BuyQty = " & DataGridView1(7, DataGridView1.Rows(i).Index).Value & ", BuyUnitePirce = " & DataGridView1(3, DataGridView1.Rows(i).Index).Value & ",OperItemExp =  #" & DataGridView1(5, DataGridView1.Rows(i).Index).Value & "#,TotalB =" & DataGridView1(10, DataGridView1.Rows(i).Index).Value & ",TotalG = " & DataGridView1(8, DataGridView1.Rows(i).Index).Value & ") Where OperID= " & DataGridView1(0, DataGridView1.Rows(i).Index).Value & "", con)

                    con.Open()

                    Operationscmd.ExecuteNonQuery()

                    con.Close()

                    ' Update Qty in Item table

                    ' Update for Supplier Balance

                Next

                ' حفظ بيانات الفاتورة

                Save_BuyPill()

                MsgBox("تم حفظ الفاتورة بنجاح")

                ' load buypill table

                load_Buypill()

                ' Making New Pill

                NewPill()

                'Load BuyQ table

                loadbuyQ()

            End If

        End If

    End Sub