[Abdallah61]

السلام عكليم
قمت بوضع جملة IF عند تغير القيمة في تكسيت بوكس
اذا كانت القمية اكبر من الموجود في Label فانه يعطي رساله خطأ
الكود يعمل عند اول رقم فقط 
مثال: اذا كانت القيمة الموجوده في Label هي 5 فاذا وضعت 7 يعطي رساله خطأ

الخطأ هنا: اذا كانت القيمة الموجوده في Label هي 5 فاذا وضعت 10 لا يعطي اي رسالة

PHP كود :

 Private Sub Qtytxt_TextChanged(sender As Object, e As EventArgs) Handles qtytxt.TextChanged


        If qtytxt.Text = Nothing Or qtytxt.Text = "0" Then
            totalGtxt.Text = "0"
        ElseIf qtytxt.Text > Label12.Text Then
            MsgBox("!قمت بأختيار قيمة اكبر من المشتراه")
            qtytxt.Text = ""
            qtytxt.Focus()

        Else
            Dim x As Integer = Val(Rebuy.DataGridView1(11, Rebuy.DataGridView1.CurrentRow.Index).Value)
            totalGtxt.Text = qtytxt.Text * x

        End If
    End Sub 


[asmarsou]

(10-02-23, 07:28 PM)Abdallah61 كتب : السلام عكليم
قمت بوضع جملة IF عند تغير القيمة في تكسيت بوكس
اذا كانت القمية اكبر من الموجود في Label فانه يعطي رساله خطأ
الكود يعمل عند اول رقم فقط 
مثال: اذا كانت القيمة الموجوده في Label هي 5 فاذا وضعت 7 يعطي رساله خطأ

الخطأ هنا: اذا كانت القيمة الموجوده في Label هي 5 فاذا وضعت 10 لا يعطي اي رسالة

PHP كود :

 Private Sub Qtytxt_TextChanged(sender As Object, e As EventArgs) Handles qtytxt.TextChanged


        If qtytxt.Text = Nothing Or qtytxt.Text = "0" Then
            totalGtxt.Text = "0"
        ElseIf qtytxt.Text > Label12.Text Then
            MsgBox("!قمت بأختيار قيمة اكبر من المشتراه")
            qtytxt.Text = ""
            qtytxt.Focus()

        Else
            Dim x As Integer = Val(Rebuy.DataGridView1(11, Rebuy.DataGridView1.CurrentRow.Index).Value)
            totalGtxt.Text = qtytxt.Text * x

        End If
    End Sub 


  و عليكم السلام و رحمة الله و بركاته
اخي الكريم  تفضل

PHP كود :

Private Sub Qtytxt_TextChanged(sender As Object, e As EventArgs) Handles Qtytxt.TextChanged
        If Qtytxt.Text = Nothing Or Qtytxt.Text = "0" Then
            totalGtxt.Text = "0"
        ElseIf Val(Qtytxt.Text.Trim) > Val(Label12.Text.Trim) Then
            MsgBox("!قمت بأختيار قيمة اكبر من المشتراه")
            Qtytxt.Text = ""
            Qtytxt.Focus()

        Else
            Dim x As Integer = Val(Rebuy.DataGridView1(11, Rebuy.DataGridView1.CurrentRow.Index).Value)
            totalGtxt.Text = Qtytxt.Text * x

        End If
    End Sub 


[Abdallah61]

(10-02-23, 08:50 PM)asmarsou كتب : شكرا جدا جدا اخي الكود يعمل بكفائة