منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
خطأ في الجملة الشرطية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطأ في الجملة الشرطية (/showthread.php?tid=45420)



خطأ في الجملة الشرطية - Abdallah61 - 10-02-23

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

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

PHP كود :
 Private Sub Qtytxt_TextChanged(sender As ObjectAs EventArgsHandles 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(11Rebuy.DataGridView1.CurrentRow.Index).Value)
 
           totalGtxt.Text qtytxt.Text x

        End 
If
 
   End Sub 



RE: خطأ في الجملة الشرطية - asmarsou - 10-02-23

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

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

PHP كود :
 Private Sub Qtytxt_TextChanged(sender As ObjectAs EventArgsHandles 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(11Rebuy.DataGridView1.CurrentRow.Index).Value)
 
           totalGtxt.Text qtytxt.Text x

        End 
If
 
   End Sub 
  و عليكم السلام و رحمة الله و بركاته
اخي الكريم  تفضل
PHP كود :
Private Sub Qtytxt_TextChanged(sender As ObjectAs EventArgsHandles Qtytxt.TextChanged
        If Qtytxt
.Text Nothing Or Qtytxt.Text "0" Then
            totalGtxt
.Text "0"
 
       ElseIf Val(Qtytxt.Text.Trim) > Val(Label12.Text.TrimThen
            MsgBox
("!قمت بأختيار قيمة اكبر من المشتراه")
 
           Qtytxt.Text ""
 
           Qtytxt.Focus()

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

        End 
If
 
   End Sub 



RE: خطأ في الجملة الشرطية - Abdallah61 - 11-02-23

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