+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [VB.NET] تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟ (/showthread.php?tid=28177)
تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟ - EYADISMAIL - 08-01-19
السلام عليكم ورحمة الله وبركاتة
لدي نمودج قيد التطوير لفاتورة مبيعات صغير, حاليا تعمل الفاتورة بشكل صحيح من حيث ادخال البيانات لكن المشكلة هي عند تعديل حقل "الكمية" فهو لا يتغير. هو معد مسبقا برقم (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)RE: تعديل المدخلات في (الداتا قريد فيو ) لفاتورة مبيعات؟ - EYADISMAIL - 09-01-19
السلام عليكم .