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


  Dim dg As String
        Dim dg2 As String
        dg = TextBox1.Text
        dg2 = TextBox2.Text

        If dg > dg2 Then

            MsgBox("الكمية المطلوبة اكثر من الموجودة في المخزون ")

        ElseIf dg = ("") Then

            MsgBox("اضف الكمية")
        ElseIf dg = 0 Then

            MsgBox("اضف الكمية")



        Else



            Form2.DataGridView1.CurrentRow.Cells(2).Value = dg
            Form2.DataGridView1.AllowUserToAddRows = True


            Close()

        End If
الرد }}}
تم الشكر بواسطة:
#2
لا تجعل القيمه string اجعلها integer
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
(31-05-20, 02:23 PM)alshandodi كتب :   مشكور اخي لاكن ادا كانت التاكست بوكس فترغة راح يطلع خطئ بما ان dg من نوع رقم ما الحل في رئيك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
اتمنى ان يكون  هذا الكود ذو فائده ..
- اذا كان اقل من 3 يضيف وينبه المستخدم انه قريب تنفذ الكمية 
- وعندما يصل 0 لا يضيف اي شي 
- إذا كانت اكبر من في المخزن لا يعمل شي 
كود :
 Sub checkqty()
       Try
           Dim QTY As Double = Convert.ToDouble(TextBox1.Text)
           Dim Stock As Double = Convert.ToDouble(TextBox2.Text)

           If QTY > Stock Then
               MsgBox("القيمة المدخله اكبر من القيمة في المخزن")
               Exit Sub
           Else
               ' كود اضافة الى داتا جريد فيو
               MsgBox("تم إضافة")
           End If

       Catch ex As Exception

       End Try
   
End Sub
هذا يكون في button  
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Try
           Dim QTY As Double = Convert.ToDouble(TextBox1.Text)

           If QTY <= 0 Then
               MsgBox("لقد نفذت الكمية")
               Exit Sub
           End If
           If QTY <= 3 Then
               checkqty()
               MsgBox("لقد اوشكت الكمية على النفاذ")
           Else
               checkqty()
           End If
       Catch ex As Exception

       End Try


   End Sub
أتمنى ان يكون ذو فائده
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
PHP كود :
Try
            
Dim dg As Integer TextBox1.Text
            Dim dg2 
As Integer TextBox2.Text

            
If dg "" Or dg 0 Then
                MsgBox
("اضف الكمية")
                Exit 
Sub
            
Else
                If 
Val(dg) > Val(dg2Then
                    MsgBox
("الكمية المطلوبة اكثر من الموجودة في المخزون ")
                Else
                    
Form2.DataGridView1.CurrentRow.Cells(2).Value dg
                    Form2
.DataGridView1.AllowUserToAddRows True
                    Close
()
                
End If
            
End If
        Catch 
ex As Exception
            MsgBox
(ex.Message)
        
End Try 
الرد }}}
تم الشكر بواسطة: alshandodi , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 517 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

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


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