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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 453 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  سوال بخصوص الداتا جريد Abdelrahman ala 7 295 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 1 407 16-12-18, 09:07 PM
آخر رد: viv
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 406 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 402 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 1,454 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 1,116 25-08-18, 10:00 PM
آخر رد: elgokr
  [VB.NET] الداتا غريد فيو Data Grid View QWERTU 3 607 25-07-18, 04:15 PM
آخر رد: elgokr
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 3 794 02-03-18, 05:07 PM
آخر رد: كناري008
  مساعدة محتاج كود جمع قيم عمود فى الداتا جريد osemy 5 3,905 27-02-18, 08:53 PM
آخر رد: atyaf

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


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