[خالد كامل1]

السلام عليكم احبتى فى الله

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

فى برنامج الكاشير واريد فى الفاتوره ان جلب اصناف الفاتوره من داخل الدتا جريد فيو بجهاز قارئ الباركود ولكن تواجهنى مشكله عند قراءه الباركود اريج بعد قرائته ينتقل الى الصف التالى ولكن لا يحدث ؟لا يحدث ذلك ؟وكذلك عند ول القراءه يدوب يكتب رقم وينتقل لحدث التالى بدون ان ياخذ باقى الكود

ببساطه كود منتج مثلا 675929

عندما اوجه القارئ لقرائته فى خليه الباركود عند اة رقم 67 ويبدأ فى تنفيذ كود التالى فهل هناك طريقه بقرا بها القارئ كل البار كود ثم ينتقل للكود التالى

[أبو خالد الشكري]

مرحبا الأخ خالد كامل1

1- يفضل لو ترفق البرنامج حتى يتمكن الأخوة الأعضاء من مساعدتك ؛ لأن تفسير كلام نصي بدون تطبيق صعب جدا !
* ارفق جزء من مشروعك (الجزء الذي فيه المشكلة) .
2- عند كتابنك للمشكلة الأحسن كتابتها بأسلوب واضح ، والابتعاد عن اللهجة العامية قدر الإمكان ؛ حتى يتمكن الجميع من فهم كلامك !

[خالد كامل1]

وضعته فى حدث LEAVE

[خالد كامل1]

السلام عليكم
هذا مشروع صغير للفكره والحمد لله استطعت ان اصل لحل ولكن تقف مشكله بسيطه اريد عند قراءة الباركود يبحث فى الداتا جريد فيو هلى هو مكرر وان كان مكرر يضيف 1 الى الكميه الموجوده
ملحوظه الان اضيف اصناف الفاتوره من الداتا حريد فيو نفسه

[عبد العزيز البسكري]

كود :

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
       Dim pro_code As String = DataGridView1.CurrentRow.Cells(0).Value
       Dim pro_name As String = DataGridView1.CurrentRow.Cells(1).Value
       Dim QTY As String = DataGridView1.CurrentRow.Cells(2).Value
       Dim prise As Decimal = DataGridView1.CurrentRow.Cells(3).Value

       If pro_code = "" Then
           MsgBox("الرجاء عدم ترك خانه رقم الصنف فارغة")
           Return
       End If

       If part_no_Ex(pro_code) = False Then
           If MessageBox.Show("هذا الصنف غير موجود بقاعده البيانات هل تريد تسجيلة ؟؟", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then
               DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
               Return
           End If
           add_pro.TextBox1.Text = pro_code
           add_pro.ShowDialog()
           Return
       End If

       If e.ColumnIndex = 0 Then

           For i As Integer = 0 To DataGridView1.RowCount - 1
               If i <> DataGridView1.CurrentRow.Index AndAlso DataGridView1.Rows(i).Cells(0).Value = pro_code Then

                   Dim existingQty As Integer = Val(DataGridView1.Rows(i).Cells(2).Value)
                   DataGridView1.Rows(i).Cells(2).Value = existingQty + 1

                   DataGridView1.Rows(i).Cells(4).Value = (existingQty + 1) * Val(DataGridView1.Rows(i).Cells(3).Value)

                   DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
                   GoTo UpdateTotal
               End If
           Next

           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim cmd As New OleDbCommand()
           cmd.Connection = con
           cmd.CommandText = "select * from product where pro_code =@pro_code"
           cmd.Parameters.AddWithValue("@pro_code", pro_code)

           Dim dr As OleDbDataReader = cmd.ExecuteReader
           While dr.Read
               pro_name = dr.Item(1)
               prise = dr.Item(5)
               DataGridView1.CurrentRow.Cells(1).Value = pro_name
               DataGridView1.CurrentRow.Cells(2).Value = 1
               DataGridView1.CurrentRow.Cells(3).Value = prise
               DataGridView1.CurrentRow.Cells(4).Value = prise
           End While
           dr.Close()
           con.Close()

       ElseIf e.ColumnIndex = 2 Then
           Dim total As Decimal
           total = QTY * prise
           DataGridView1.CurrentRow.Cells(4).Value = total
       End If

UpdateTotal:
       Dim sum_total As Decimal = 0
       For i As Integer = 0 To DataGridView1.RowCount - 1
           sum_total += Val(DataGridView1.Rows(i).Cells(4).Value)
       Next
       TextBox3.Text = sum_total

   End Sub

[خالد كامل1]

احسنت اخى الكريم عبد العزيز