+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] السلام عليكم لدي جدول فرعي وارد تحديث الجدول الرئيسي (/showthread.php?tid=49457)
السلام عليكم لدي جدول فرعي وارد تحديث الجدول الرئيسي - raedre22 - 06-07-24
السلام عليكم ورحمة الله وبركاته
اعمل على شاشة ادخال للمنتجات اواجه مشكلة وهي ان زيادة عدد المنتج لاتوجد بها اي مشكلة
اواجه مشكلة في ادخال السعر الجديد للمنتج سعر الشراء وسعر البيع وتاريخ النفاذ وارجو منكم الحل
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
مال الصيغة لاضافة سعر جديد عند اضافة منتج جديد او منتج موجود مسبقا اي تحديث السعر والتاريخ
المشكلة الثانية ما المشكلة في هذا الكود
Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged
On Error Resume Next
Dim stock As Double = 0
For i As Integer = 0 To DataGridView1.Rows.Count - 1
If DataGridView1.Rows(i).Cells(7).Value.ToString <> String.Empty Then stock += CDbl(DataGridView1.Rows(i).Cells(7).Value.ToString)
Next
txtCount.Text = stock
End Sub
RE: السلام عليكم لدي جدول فرعي وارد تحديث الجدول الرئيسي - Zuhare - 06-07-24
المشكله الاولى هل اضفت كود البارامتر يللي موجوده في التحديث وهي @ProductBuyPrice و @ProductSalePrice و @ProductDate ؟
كود :
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
cm.Parameters.AddWithValue("@ProductBuyPrice",252.44)
cm.Parameters.AddWithValue("@ProductSalePrice",674.11)
cm.Parameters.AddWithValue("@ProductDate ",CDate("2024-07-07"))المشكله التانيه احذف السطر On Error Resume Next لتعرف المشكله في الكود
RE: السلام عليكم لدي جدول فرعي وارد تحديث الجدول الرئيسي - raedre22 - 06-07-24
(06-07-24, 11:55 AM)Zuhare كتب : المشكله الاولى هل اضفت كود البارامتر يللي موجوده في التحديث وهي @ProductBuyPrice و @ProductSalePrice و @ProductDate ؟
كود :
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
cm.Parameters.AddWithValue("@ProductBuyPrice",252.44)
cm.Parameters.AddWithValue("@ProductSalePrice",674.11)
cm.Parameters.AddWithValue("@ProductDate ",CDate("2024-07-07"))
المشكله التانيه احذف السطر On Error Resume Next لتعرف المشكله في الكود
شكرا جزيلا سوف اتابع الشرح وابلغك بالنتيجة لكن ارجو التوضيح لم افهم الارقام المضافة ؟
بعد اتباع الخطوات المشار اليها تم اتبدال الارقام الموجود بالشرح بحقول داتا جرد فيو لأضافة سعر الشراء وسعر البيع والاكسباير
المشكلة انه تم تغير اسعار المخزون السابق وتاريخ النفاذ
الكود بعد التعديل
cm = New SqlCommand("update tblProduct set ProductQuantity = ProductQuantity + " & CInt(DataGridView1.Rows(i).Cells(7).Value.ToString) & ", ProductBuyPrice=@ProductBuyPrice ,ProductSalePrice=@ProductSalePrice ,ProductDate=@ProductDate where ProductID like '" & DataGridView1.Rows(i).Cells(1).Value.ToString & "'", cn)
With cm
cm.Parameters.AddWithValue("@ProductBuyPrice", CInt(DataGridView1.Rows(i).Cells(8).Value.ToString))
cm.Parameters.AddWithValue("@ProductSalePrice", CInt(DataGridView1.Rows(i).Cells(9).Value.ToString))
cm.Parameters.AddWithValue("@ProductDate ", CDate(DataGridView1.Rows(i).Cells(10).Value.ToString))
cm.ExecuteNonQuery()
End With