تقييم الموضوع :
  • 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 , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تحويل هذا الكود و جعله يعمل Necro PC 2 183 15-10-21, 03:08 PM
آخر رد: Necro PC
  [سؤال] ما هو الخطأ في عدم تنفيذ هذه الكود محمد الصدفاوي 6 438 09-10-21, 10:05 PM
آخر رد: محمد الصدفاوي
  [سؤال] ممكن عمل الكود فجول بيسك بنفس الطريقة بسام محمدغانم 0 166 07-10-21, 09:12 AM
آخر رد: بسام محمدغانم
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 291 17-09-21, 01:52 PM
آخر رد: ahmedbezia
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 597 21-08-21, 06:32 PM
آخر رد: mmaalmesry
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 645 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 630 14-08-21, 09:34 AM
آخر رد: ابو انس
  ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود جيولوجي مبتدئ 4 550 24-07-21, 08:07 AM
آخر رد: جيولوجي مبتدئ
  ازاى احفظ الكود masport tv 1 355 21-07-21, 12:48 AM
آخر رد: ميدو الفنان
  ارجو منكم المساعده و التعديل علي الكود اليوم السابع 5 561 14-06-21, 09:58 PM
آخر رد: trakktour

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


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