+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=2498)
RE: ما معنى هذه الرساله - abulayth - 10-04-14
السلام عليكم
جرب ان تستخدم متغير غير cmd لان الكلمة ممكن ان تكون محجوزة
يعطيك العافية
RE: ما معنى هذه الرساله - bumb - 10-04-14
جربت ونفس الشي
RE: ما معنى هذه الرساله - Adrees - 12-04-14
السلام عليكم
المشكلة احتمال ان يكون سببها كالآتي :
مثلا عند انشاء متغير بهذه الطريقة
PHP كود :
Dim CMD As New OleDbCommand
ايضا عند انشاء متغير بهذه الطريقة
PHP كود :
Dim cmd As New OleDbCommand
عند النظر الى هذه الاكواد قد يقول شخص ما انها مختلفة
لكن الحقيقة غير ذلك , عند استخدام الاجراءات procedure فان الاجراء في هذه الحالة يعتبر cmd و CMD هو متغير واحد
لكي تتجنب هذا الخطأ عليك تغيير جميع اسماء المتغيرات المتشابهه مثلا cmd ,CMD ,cmd1,CMD1 باسماء مختلفة
قد يكون هذا هو سبب المشكلة.
والله وحده اعلم.
RE: ما معنى هذه الرساله - vbnet - 02-06-14
.....
المشكلة أنه يوجد شرط If الخاص ب (كود التحقق من المدخل عدد صحيح) يمنع من وصول التنفيذ إليه
بسبب وضع Exit Sub في الحالة Then وأيضاً في نهاية الحالة Else وأيضاً وجود Return الذي سيخرج التنفيذ قبل Exit Sub الثانية
الخلاصة سيتم الخروج من الإجراء قبل السطر Dim cmd As New OleDbCommand وأصبح ما بعد End If بلا فائدة وبالتالي يعتبرها المعالج غير مستخدمة
وهذا كود If المتسبب بالمشكلة مع مشاهدة الكود في الرد رقم #7 لتتضح الصورة
كود :
'كود التحقق من المدخل عدد صحيح
If IsNumeric(txtCRN.Text) Then
Exit Sub '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Else
Dim Msg As String = "رقم السجل المدني يجب أن يكون عددا صحيحا"
MsgBox(Msg, vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "نظام مواعيد الأعلاف")
txtCRN.Text = ""
txtCRN.Focus()
txtCRN.SelectionStart = 0
Return '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Exit Sub '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End If