منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟

السلام عليكم ورحمة الله وبركاتة

لدي نمودج قيد التطوير لفاتورة مبيعات صغير, حاليا تعمل الفاتورة بشكل صحيح من حيث ادخال البيانات لكن المشكلة هي عند تعديل حقل "الكمية" فهو لا يتغير. هو معد مسبقا برقم (1)
سؤالي هو يتكون من جزئين جزاكم الله كل خير.

1 - * كيفية تعديل الكمية داخل الداتا قريد فيو ؟

2 - كيفية خصم الكمية من المخزون ( للعلم انى جربت عن طريق التكست بوكس لاكن لا يتم الخصم الا الصف الاول من الداتا قريد فيو اما باقي الصفوف فلا يتم خصم المخزون)؟

المشروع في المرفقات

[/url][url=https://up.top4top.net/]

كود الاضافة

كود :

For Each saf As DataGridViewRow In DataGridView1.Rows

            If Not saf.IsNewRow Then

                If db.State = ConnectionState.Closed Then db.Open()

                Dim s As String = "insert into ITM2(NO_AUTO1,NO_ITM,NA_ITM,BY_ITM,SEL_ITM,DATE_REC,MOR_ITM)" & _

                    "values (@NO_AUTO,@NO_ITM,@NA_ITM,@BY_ITM,@SEL_ITM,@DATE_REC,@MOR_ITM)"

                Dim sw As New OleDbCommand(s, db)

                sw.CommandText = s

                sw.Connection = db

                sw.Parameters.AddWithValue("@NO_AUTO1", TextBox1.Text)

                sw.Parameters.AddWithValue("@NO_ITM", saf.Cells(0).Value.ToString)

                sw.Parameters.AddWithValue("@NA_ITM", saf.Cells(1).Value.ToString)

                sw.Parameters.AddWithValue("@BY_ITM", saf.Cells(2).Value.ToString)

                sw.Parameters.AddWithValue("@SEL_ITM", saf.Cells(3).Value.ToString)

                sw.Parameters.AddWithValue("@DATE_REC", DateTimePicker1.Text)

                sw.Parameters.AddWithValue("@MOR_ITM", saf.Cells(4).Value.ToString)

                sw.ExecuteNonQuery()

                sw.Dispose()

            End If

        Next

        db.Close()

        MsgBox("تمت عمليةالحفظ بنجاح")

        DataGridView1.Rows.Clear()

    End Sub

كود التعديل

كود :

   Private Sub DataGridView1_CellDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick

        DataGridView1.Rows(e.RowIndex).Cells(3).Value = 1

        DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(4).Value = (DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value * DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(3).Value)

السلام عليكم .

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

EYADISMAIL

EYADISMAIL