08-01-19, 11:49 PM
(آخر تعديل لهذه المشاركة : 11-01-19, 04:52 PM {2} بواسطة EYADISMAIL.)
السلام عليكم ورحمة الله وبركاتة
لدي نمودج قيد التطوير لفاتورة مبيعات صغير, حاليا تعمل الفاتورة بشكل صحيح من حيث ادخال البيانات لكن المشكلة هي عند تعديل حقل "الكمية" فهو لا يتغير. هو معد مسبقا برقم (1)
سؤالي هو يتكون من جزئين جزاكم الله كل خير.
1 - * كيفية تعديل الكمية داخل الداتا قريد فيو ؟
2 - كيفية خصم الكمية من المخزون ( للعلم انى جربت عن طريق التكست بوكس لاكن لا يتم الخصم الا الصف الاول من الداتا قريد فيو اما باقي الصفوف فلا يتم خصم المخزون)؟
المشروع في المرفقات
[/url][url=https://up.top4top.net/]
كود الاضافة
كود التعديل
لدي نمودج قيد التطوير لفاتورة مبيعات صغير, حاليا تعمل الفاتورة بشكل صحيح من حيث ادخال البيانات لكن المشكلة هي عند تعديل حقل "الكمية" فهو لا يتغير. هو معد مسبقا برقم (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)