تقييم الموضوع :
  • 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 10 288 19-05-19, 03:54 AM
آخر رد: elgokr
  سوال بخصوص الداتا جريد Abdelrahman ala 7 252 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 1 381 16-12-18, 09:07 PM
آخر رد: viv
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 367 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 373 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 1,377 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 1,054 25-08-18, 10:00 PM
آخر رد: elgokr
  [VB.NET] الداتا غريد فيو Data Grid View QWERTU 3 561 25-07-18, 04:15 PM
آخر رد: elgokr
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 3 755 02-03-18, 05:07 PM
آخر رد: كناري008
  مساعدة محتاج كود جمع قيم عمود فى الداتا جريد osemy 5 3,852 27-02-18, 08:53 PM
آخر رد: atyaf

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


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