[ahmedbezia]

السلام عليكم اخوان الكرام

اين الخطئ في هد الكود 
من حين لاخر لاينفد الشرط حتي ولو كانت القيمة في تاكست 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

[alshandodi]

لا تجعل القيمه string اجعلها integer

[ahmedbezia]

(31-05-20, 02:23 PM)alshandodi كتب :   مشكور اخي لاكن ادا كانت التاكست بوكس فترغة راح يطلع خطئ بما ان dg من نوع رقم ما الحل في رئيك

[alshandodi]

اتمنى ان يكون  هذا الكود ذو فائده ..
- اذا كان اقل من 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

أتمنى ان يكون ذو فائده

[Sorax]

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(dg2) Then
                    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