+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اضيف عدد 2 Function مع بعض (/showthread.php?tid=48499)
كيف اضيف عدد 2 Function مع بعض - mohamedgadain61 - 14-05-24
السلام عليكم لدي DataGridView1 اريد عند تكرار اسم المنتج في عمود رقم (0) وسعر المنتج في عمود رقم (1)
اريد عن تكرار المنتج والسعر فقط يتم زيادة فقط عدد المنتج والسعر دون ادخال المنتج من جديد
اريد فقط التعديل بالكود حتى يعمل بشكل صحيح وشكرا
مرفق لكم الكود
If isfound(DescriptionT.Text + note) = True And isfound1(BB7.Text) = True Then
For i As Integer = DataGridView1.SelectedRows.Count - 1 To 0
DataGridView1.Rows(rowindex).Cells(1).Value += Val(Me.ItemN.Value)
DataGridView1.Rows(rowindex).Cells(3).Value += Val(Me.ItemN.Value * Me.BB7.Text)
Next
Else
Me.DataGridView1.Rows.Add(DescriptionT.Text + note, Me.ItemN.Value, Me.BB7.Text, Me.ItemN.Value * Me.BB7.Text, billnumber)
End If
Private Function isfound(txt As String) As Boolean
For Each row As DataGridViewRow In DataGridView1.Rows
If row.IsNewRow = False Then
If row.Cells(0).Value = txt Then
rowindex = row.Index
Return True
End If
End If
Next
Return False
End Function
Private Function isfound1(txt1 As String) As Boolean
For Each row As DataGridViewRow In DataGridView1.Rows
If row.IsNewRow = False Then
If row.Cells(2).Value = txt1 Then
rowindex = row.Index
Return True
End If
End If
Next
Return False
RE: كيف اضيف عدد 2 Function مع بعض - غزة العزة - 14-05-24
لنقم بتعديل الكود ليقوم بزيادة عدد المنتج والسعر عندما يتم العثور على منتج بنفس الوصف ونفس السعر. يجب تحديد السعر الجديد بناءً على السعر الحالي وعدد المنتجات الجديدة المضافة.
هناك بعض التغييرات التي يجب إجراؤها في الكود. إليك كيف يمكن تعديله:
PHP كود :
If isfound(DescriptionT.Text + note) AndAlso isfound1(BB7.Text) Then
For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.IsNewRow AndAlso row.Cells(0).Value = DescriptionT.Text + note AndAlso row.Cells(2).Value = BB7.Text Then
row.Cells(1).Value = CInt(row.Cells(1).Value) + CInt(ItemN.Value)
row.Cells(3).Value = CDbl(row.Cells(3).Value) + (CInt(ItemN.Value) * CDbl(BB7.Text))
Exit Sub ' توقف البحث بمجرد العثور على الصف الذي يحتاج إلى التحديث
End If
Next
Else
DataGridView1.Rows.Add(DescriptionT.Text + note, ItemN.Value, BB7.Text, ItemN.Value * CDbl(BB7.Text), billnumber)
End If
هذا التعديل يأخذ الصف الذي يحتاج إلى التحديث ويزيد عدد المنتجات والسعر بناءً على المدخلات الجديدة.