+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد (/showthread.php?tid=46617)
اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - moh61 - 24-07-23
اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد والإجمالي دون تكرار
Me.DataGridView1.Rows.Add(TextBox1.Text , TextBox2.Text ,TextBox3.Text ,TextBox4.Text )
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - تركي الحلواني - 24-07-23
جرب المثال
PHP كود :
Private Sub SearchFullNameInDataGridView(keyword As String)
For Each row As DataGridViewRow In DataGridView1.Rows
If Not row.IsNewRow Then
Dim cellValue As String = row.Cells("Column1").Value.ToString()
If String.Equals(cellValue, keyword, StringComparison.OrdinalIgnoreCase) Then
row.Selected = True
DataGridView1.CurrentCell = row.Cells("Column1")
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(2).Value += 1
Exit For
End If
End If
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim keyword As String = TextBox1.Text
SearchFullNameInDataGridView(keyword)
End Sub
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - عبد الخالق - 24-07-23
(24-07-23, 03:17 PM)moh61 كتب : اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد والإجمالي دون تكرار
Me.DataGridView1.Rows.Add(TextBox1.Text , TextBox2.Text ,TextBox3.Text ,TextBox4.Text )
نفس المطلوب
سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - aljzazy - 25-07-23
الافضل دائما" التأكد من عدم ادخال بيانات مكررة بواسطة حقل لا يتكرر مثل الباركود مثلا
بهذه الحالة يتم عمل لوب قبل الاضافة اذا وجد رقم الباركود المراد ادخاله موجود يتم زيادة
العدد واحد والتعديل على باقي البيانات والمجموع
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - moh61 - 25-07-23
يعطيك العافية اخ تركي يوجد ملاحتظتين
اريد اجمع اجمالي المبلغ في المجموع بالحقل Column3 ايضا في وقت واحد ... عدلت بالكود وكانت النتيجة يجمع Column1 و Column2 بنفس القيم كيف يكون التعديل الصحيح للكود كما هو مبين بالصورة المرفقة اعلاه
الماحظ الثانية : يتم تكرار الصنف مرة اخرى بعد الجمع .... لمن احط الكود Me.DataGridView1.Rows.Add(TextBox1.Text , TextBox2.Text ,TextBox3.Text ,TextBox4.Text )
اريد اضافة نفس كود في حال لايوجد عناصر متشابهة يقوم باضافة بأضافة العناصر بشكل عادي
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - justforit - 25-07-23
الكود بالصورة اعلاه
RE: اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد - تركي الحلواني - 26-07-23
تفضل أخي
PHP كود :
Private Sub SearchFullNameInDataGridView(keyword As String)
Dim foundMatch As Boolean = False ' متغير لتتبع ما إذا كان هناك تطابق في البحث
With DataGridView1
For Each row As DataGridViewRow In .Rows
If Not row.IsNewRow Then
Dim cellValue As String = row.Cells("Column1").Value.ToString()
If String.Equals(cellValue, keyword, StringComparison.OrdinalIgnoreCase) Then
row.Selected = True
.CurrentCell = row.Cells("Column1")
row.Cells(1).Value += 1
row.Cells(3).Value = Val(row.Cells(2).Value) * Val(row.Cells(1).Value)
foundMatch = True ' هناك تطابق في البحث
Exit For
End If
End If
Next
If Not foundMatch Then
' لا يوجد تطابق في البحث، قم بإضافة الصف الجديد
.Rows.Add(TextBox1.Text, TextBox5.Text, TextBox6.Text, Val(TextBox5.Text) * Val(TextBox6.Text))
End If
End With
End Sub