تقييم الموضوع :
  • 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
السلام عليكم .
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تلوين خلية واحدة فقط فى الداتا غريد اذا تغيرت القيمة ؟ a.amin 11 7,838 15-02-23, 02:13 PM
آخر رد: tighrmte
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 1,115 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  هل يمكن تعديل كلمة معينة داخل سجل alfaiz678 5 2,860 30-11-20, 09:42 PM
آخر رد: alfaiz678
  [VB.NET] تعديل في data gird view وحفظه Hassan.syria 5 2,954 10-03-20, 03:06 PM
آخر رد: asemshahen5
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 2 3,583 19-12-19, 11:23 PM
آخر رد: بسام محمدغانم
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 4,647 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  سوال بخصوص الداتا جريد Abdelrahman ala 7 3,534 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 2,609 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 2,753 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 7,887 11-09-18, 01:22 AM
آخر رد: EYADISMAIL

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


يقوم بقرائة الموضوع: