منع تكرار العناصر في داتا جيرد في حال وجود نفس العنصر والسعر سويا

كود :

  Dim found As Boolean = False

        For Each row As DataGridViewRow In DataGridView1.Rows

            If row.Cells(0).Value = TextBox1.Text And row.Cells(1).Value = TextBox2.Text Then

                row.Cells(2).Value = Val(row.Cells(2).Value) + Val(TextBox3.Text)

                row.Cells(3).Value = Val(row.Cells(1).Value) * Val(row.Cells(2).Value)

                found = True

                Exit For

            End If

        Next



        If Not found Then

            Dim newRow As String() = {TextBox1.Text, TextBox2.Text, TextBox3.Text, Val(TextBox2.Text) * Val(TextBox3.Text)}

            DataGridView1.Rows.Add(newRow)

        End If

PHP كود :

Private Sub AddOrUpdateRow()
    Dim product As String = TextBox1.Text
    Dim price As Decimal = Decimal.Parse(TextBox2.Text)
    Dim quantity As Integer = Integer.Parse(TextBox3.Text)
    Dim total As Decimal = price * quantity

    Dim rowFound As Boolean = False
    Dim priceMatched As Boolean = False

    ' البحث عن المنتج في DataGridView
    For Each row As DataGridViewRow In DataGridView1.Rows
        If row.Cells(0).Value IsNot Nothing AndAlso row.Cells(0).Value.ToString() = product Then
            rowFound = True

            ' التحقق من السعر
            If Decimal.Parse(row.Cells(1).Value.ToString()) = price Then
                priceMatched = True
                ' تحديث الكمية والإجمالي
                row.Cells(2).Value = quantity
                row.Cells(3).Value = total
                Exit For
            End If
        End If
    Next

    ' إذا لم يتم العثور على المنتج أو لم يتطابق السعر، إضافة صف جديد
    If Not rowFound OrElse Not priceMatched Then
        DataGridView1.Rows.Add(product, price, quantity, total)
    End If

    ' رسائل للتوضيح (يمكن إزالتها لاحقًا)
    If rowFound AndAlso priceMatched Then
        MessageBox.Show("تم تحديث الكمية والإجمالي للمنتج المكرر بنفس السعر.")
    ElseIf rowFound Then
        MessageBox.Show("تم إضافة المنتج المكرر بسعر مختلف.")
    Else
        MessageBox.Show("تم إضافة المنتج الجديد.")
    End If
End Sub