+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ (/showthread.php?tid=17099)
شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - 0theghost0 - 31-08-16
استاذتي الافاضل
الواحد لازم يسعى مثل الطفل يسعى حتى يستطيع المشي على الاقدم ونحن كذلك لازم نسعى حتى نستطيع حل وكسب الخبرة لنقوم ببرمجة أفضل المشاريع وأفضل البرامج .
لقد بحثت في حل لهذة المشكلة ولكن لم احصل على نتيجة لحد الان
سوف اخبركم بها
اولا الكود :
كود :
Dim obj As New DataFactor("Data")
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is TextBox Then
C.Text = ""
End If
Next
TextBox2.Text = obj.SelectMaxValue("report", "Re_No")الموضوع والشيء الذي اريد حله هنا :
هذا الكود صحيح 100% استخدمه ليظهر اخر رقم موجود في قاعدة البيانات .
ولكن يوجد خلل بسيط بهذا الكود .
ماهو الخلل البسيط او الخطأ :
عندما لايوجد رقم في القاعدة المفروض يبدأ من رقم 1 ولكن هذا الكود يظهر لي خطأ ويقفل البرنامج أريده أن يقرأ الارقام حتى لو لم يحصل على رقم موجود في القاعدة يقوم بإظهار لي الرقم بدون أي أخطاء فهل من الممكن أن تساعدوني في حل هذة القضية الصغيرة والبسيطة ؟؟
RE: شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - Adrees - 31-08-16
http://vb4arb.com/vb/thread-17049.html
RE: شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - silverlight - 01-09-16
الفكرة في العداد او الترقيم التلقائي إنك تأخذ قيمته دائما من مصفوفة و هنا يكون سهلا إنك تقرأ أخر شئ في المصفوفة و تضيف له 1
لو افترضنا إن المصفوفة خالية أتوماتيكيا سيكون الرقم الأول للترقيم التلقائي هو الرقم 1
مثال افتح فورم و قم بإضافة اي عدد تشاء من الكونترول له
و في الحدث Load الخاص بالفورم اكتب الكود بالشكل التالي ثم استعرض الناتج في التكست الخاص يبالفورم و ستتضح لك الفكرة
PHP كود :
Dim autoNo As Integer = Me.Controls.Count + 1
Me.Text = autoNo
RE: شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - أبو عمر - 01-09-16
ليش تعقد نفسك من الاساس؟؟
كل المووع حقل ترقيم تلقائي وخليه مفتاح اساسي واشتري دماغك
وفي التقرير او الجريد اظهر في اي حقل رقم تسلسلي عادي
حاول تسلك اسهل الطرق واقصرها للوصل
RE: شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - Ahmed Gandos - 01-09-16
حل هذه المشكل بيسط جداً
استخدم جملة Try,catch
try
{
//Dim obj As New DataFactor("Data")
//Dim C As Control
//For Each C In Me.Controls
// If TypeOf C Is TextBox Then
// C.Text = ""
// End If
//Next
//TextBox2.Text = obj.SelectMaxValue("report", "Re_No")
}
catch
{
TextBox2.Text = "1";
}
RE: شباب هل يوجد حل لهذة المشكلة الترقيم ؟؟ - 0theghost0 - 03-09-16
تم حلها وشكرا لكم يا اخواني