13-04-21, 04:10 PM
السلام عليكم اصدقائي
لدي مشكلة بسيطة في زيادة كمية الصنف الي الفاتورة
لدي مشكلة بسيطة في زيادة كمية الصنف الي الفاتورة
كود :
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