تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟
#1
Photo 
السلام عليكم ورحمة الله وبركاتة 

لدي نمودج قيد التطوير لفاتورة مبيعات صغير, حاليا تعمل الفاتورة بشكل صحيح من حيث ادخال البيانات لكن المشكلة هي عند تعديل حقل "الكمية" فهو لا يتغير. هو معد مسبقا برقم (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)
الرد
تم الشكر بواسطة:
#2
السلام عليكم .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سوال بخصوص الداتا جريد Abdelrahman ala 7 168 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 1 317 16-12-18, 09:07 PM
آخر رد: viv
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 325 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 326 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 1,161 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 935 25-08-18, 10:00 PM
آخر رد: elgokr
  [VB.NET] الداتا غريد فيو Data Grid View QWERTU 3 475 25-07-18, 04:15 PM
آخر رد: elgokr
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 3 700 02-03-18, 05:07 PM
آخر رد: كناري008
  مساعدة محتاج كود جمع قيم عمود فى الداتا جريد osemy 5 3,736 27-02-18, 08:53 PM
آخر رد: atyaf
  [سؤال] استفسار عن جمع قيم اكثر من مستطيل في داتا قريد Marwan9990 2 660 12-02-18, 01:19 AM
آخر رد: كناري008

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم