[عبدالكريم برشدان]

السلام عليكم اصدقائي

لدي مشكلة بسيطة في زيادة كمية الصنف الي الفاتورة 

كود :

   Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown

       If e.KeyCode = Keys.Enter Then

           For i As Integer = 0 To Me.FlowLayoutPanel3.Controls.Count - 1

               If Me.FlowLayoutPanel3.Controls(i).Controls("lbl_barcode").Text = BunifuTextBox2.Text Then

               
                 uc.Label2.Text = uc.Label2.Text + 1
                   uc.Label3.Text = Val(uc.Label1.Text) * Val(uc.Label2.Text)
                 
                   Exit Sub
               End If
     Next

           Dim uc As New uc_cart_bill_sale
           uc.lbl_barcode.Text = BunifuTextBox2.Text
           uc.Name = TextBox1.Text
           uc.btn.Text = TextBox1.Text
           uc.Label1.Text = TextBox2.Text
           uc.Label2.Text = 1
           uc.Label3.Text = Val(uc.Label1.Text) * Val(uc.Label2.Text)
           Me.FlowLayoutPanel3.Controls.Add(uc)
                 End If

   End Sub

[عبدالكريم برشدان]

انتظار الرد منكم