[sofiane-phy]

أخي asemshahen5 بارك الله فيك
أنا مجرد متعلم جديد لكن اين هو الخلل

كود :

Dim total As Decimal
   Dim row As DataRow = dt.NewRow
   Private Sub dgv1_DoubleClick(sender As Object, e As EventArgs) Handles dgv1.DoubleClick
       Dim row As DataRow = dt.NewRow
       For i As Integer = 0 To dgvSale.Rows.Count - 1
           If dgv1.CurrentRow.Cells(0).Value = dgvSale.Rows(i).Cells(0).Value Then
               'MsgBox("الصنف موجود", MsgBoxStyle.Exclamation, "تنبيه")
               dgvSale.Rows(i).Cells(3).Value = dgvSale.Rows(i).Cells(3).Value + 1
               dgvSale.Rows(i).Cells(4).Value = (dgvSale.Rows(i).Cells(3).Value * dgvSale.Rows(i).Cells(2).Value)
               dgvSale.AllowUserToAddRows = False
               dgvSale.DataSource = dt
               total += dgvSale.Rows(i).Cells(4).Value
               txtTotal.Text = total
               txtBBO.Text = Val(txtDDO.Text) - Val(txtTotal.Text)
               txtClearSales()
               Exit Sub
           End If
       Next
       row(0) = Me.dgv1.CurrentRow.Cells(0).Value
       row(1) = Me.dgv1.CurrentRow.Cells(1).Value
       row(2) = Me.dgv1.CurrentRow.Cells(2).Value
       row(3) = 1
       row(4) = 1 * dgv1.CurrentRow.Cells(2).Value
       dt.Rows.Add(row)
       For i As Integer = 0 To dgvSale.Rows.Count - 1
           total += dgvSale.Rows(i).Cells(4).Value
       Next
       txtTotal.Text = total
       txtBBO.Text = Val(txtDDO.Text) - Val(txtTotal.Text)
       dgvSale.CurrentCell = dgvSale.Rows(dgvSale.RowCount - 1).Cells(0)
       dgvSale.Rows(dgvSale.RowCount - 1).Selected = True