السلام عليكم اخوان الكرام
اين الخطئ في هد الكود
من حين لاخر لاينفد الشرط حتي ولو كانت القيمة في تاكست 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
لا تجعل القيمه string اجعلها integer
اتمنى ان يكون هذا الكود ذو فائده ..
- اذا كان اقل من 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
أتمنى ان يكون ذو فائده