تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في زيادة كمية الصنف الي الفاتورة المبيعات
#1
السلام عليكم اصدقائي

لدي مشكلة بسيطة في زيادة كمية الصنف الي الفاتورة 
كود :
   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
الرد
تم الشكر بواسطة:
#2
انتظار الرد منكم
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم