[VB.NET] تفادي تكرار ادخال نفس العنصر في الداتاغريد فياو و تحديث خلية الكمية و السعر

PHP كود :

Public Class Form1
    Private Function gid()
        Return dgv.Rows.Count
    End Function
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        Randomize()
    End Sub
    Private Sub btnGen_Click(sender As System.Object, e As System.EventArgs) Handles btnGen.Click
        txtbarcode.Text = Int(Rnd() * 999)
    End Sub
    Private Sub txtq_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtq.KeyDown
        If e.KeyData = Keys.Enter Then
            If dgv.Rows.Count = IIf(dgv.AllowUserToAddRows, 1, 0) Then
                dgv.Rows.Add(gid, txtbarcode.Text, txtname.Text, txtu.Text, txtunitpr.Text, txtq.Text)
            Else
                For i As Integer = 0 To dgv.Rows.Count - IIf(dgv.AllowUserToAddRows, 2, 1)
                    If txtq.Text = "" Then
                        Return
                    Else
                        If dgv.Rows(i).Cells(1).Value = txtbarcode.Text Then
                            dgv.Rows(i).Cells(5).Value = Val(dgv.Rows(i).Cells(5).Value + Val(txtq.Text))
                        Else
                            Dim row As New DataGridViewRow
                            row.CreateCells(dgv)
                            row.Cells(0).Value = gid()
                            row.Cells(1).Value = txtbarcode.Text
                            row.Cells(2).Value = txtname.Text
                            row.Cells(3).Value = txtu.Text
                            row.Cells(4).Value = txtunitpr.Text
                            row.Cells(5).Value += Val(txtq.Text)
                            dgv.Rows.Add(row)
                        End If

                    End If
                Next
            End If
        End If
    End Sub
    Private Sub dgv_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles dgv.RowsAdded
        dgv.Rows(e.RowIndex).Cells(6).Value = Val(dgv.Rows(e.RowIndex).Cells(4).Value) * Val(dgv.Rows(e.RowIndex).Cells(5).Value)
    End Sub
End Class

كود :

Private Sub qte_vente_KeyDown(sender As Object, e As KeyEventArgs) Handles qte_vente.KeyDown

     

        If e.KeyCode = Keys.Enter Then

            If qte_vente.Text = "" Or qte_vente.Text = "0" Then

                MsgBox("أدخل الكمية المطلوبة")

            Else

                For i As Integer = 0 To DGVBill.Rows.Count - 1

                    If DGVBill.Rows(i).Cells(1).Value = codebare_vente.Text Then

                        DGVBill.Rows(i).Cells(5).Value = Val(DGVBill.Rows(i).Cells(5).Value + Val(qte_vente.Text))

                                             calcul()

                        Exit Sub

                    Else

                        Dim row As DataRow = dt.NewRow

                        row(0) = gid()

                        row(1) = codebare_vente.Text

                        row(2) = designation_vente.Text

                        row(3) = unite_vente.Text

                        row(4) = pd_vente.Text

                        row(5) = qte_vente.Text

                        row(6) = ptotal_vente.Text

                        dt.Rows.Add(row)

                        DGVBill.DataSource = dt

                        calcul()

                    End If

                    Exit Sub

                Next

            End If

     End If





الآن الكود يقوم بمنع تكرار الصف الأول فقط في الداتاغريد فياو وليس في كل الداتاغريد فياو كما هو مطلوب ، رغم وجود الدالة For (i)

PHP كود :

Public Class Form1
    Private Function gid()
        Return dgv.Rows.Count
    End Function
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
        Randomize()
        btnGen.PerformClick()
    End Sub
    Private Sub btnGen_Click(sender As System.Object, e As System.EventArgs) Handles btnGen.Click
        txtbarcode.Text = Int(Rnd() * 999)
    End Sub

    Private Function GetRowIndex(txt As String) As Integer
        For i As Integer = 0 To dgv.Rows.Count - IIf(dgv.AllowUserToAddRows, 2, 1)
            Dim row As String = dgv.Rows(i).Cells(1).Value
            If row = txt Then
                Return i
                Exit Function
            End If
        Next
        Return Nothing
    End Function

    Private Sub txtq_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles txtq.KeyDown
        If e.KeyData = Keys.Enter Then
            If dgv.Rows.Count = IIf(dgv.AllowUserToAddRows, 1, 0) Then
                Dim row As New DataGridViewRow
                row.CreateCells(dgv)
                row.Cells(0).Value = gid()
                row.Cells(1).Value = txtbarcode.Text
                row.Cells(2).Value = txtname.Text
                row.Cells(3).Value = txtu.Text
                row.Cells(4).Value = txtunitpr.Text
                row.Cells(5).Value += Val(txtq.Text)
                dgv.Rows.Add(row)
            Else
                dgv.CurrentCell = dgv.Rows(GetRowIndex(txtbarcode.Text)).Cells(5)
                Dim row As String = dgv.CurrentRow.Cells(1).Value
                If row = txtbarcode.Text Then
                    dgv.CurrentRow.Cells(5).Value = Val(dgv.CurrentRow.Cells(5).Value + Val(txtq.Text))
                Else
                    Dim Arow As New DataGridViewRow
                    Arow.CreateCells(dgv)
                    Arow.Cells(0).Value = gid()
                    Arow.Cells(1).Value = txtbarcode.Text
                    Arow.Cells(2).Value = txtname.Text
                    Arow.Cells(3).Value = txtu.Text
                    Arow.Cells(4).Value = txtunitpr.Text
                    Arow.Cells(5).Value += Val(txtq.Text)
                    dgv.Rows.Add(Arow)
                End If

            End If
        End If
    End Sub

    Private Sub dgv_CellValueChanged(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellValueChanged
        On Error Resume Next
        dgv.Rows(dgv.CurrentRow.Index).Cells(6).Value = Val(dgv.Rows(dgv.CurrentRow.Index).Cells(4).Value) * Val(dgv.Rows(dgv.CurrentRow.Index).Cells(5).Value)
    End Sub
    Private Sub dgv_RowsAdded(sender As Object, e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles dgv.RowsAdded
        dgv.Rows(e.RowIndex).Cells(6).Value = Val(dgv.Rows(e.RowIndex).Cells(4).Value) * Val(dgv.Rows(e.RowIndex).Cells(5).Value)
    End Sub

End Class