[أبو عمر]

(03-11-15, 11:56 PM)مهموم كتب : السلام عليكم ورحمة الله

أخي عادل

إحذر من وضع الأكواد في حدث التحميل Form1_Load فهي فكرة خاطئة

استاذ مهموم " الملافظ سعد" لكن
ليش يحذر؟
يا ليتك تفيدني لاني كثير استخدم الفورم لود واحيا حتى قبل تحميل مكونات الفورم
sub new
مأجورا مشكوراً

[مهموم]

السلام عليكم ورحمة الله

أخي أبو عمر

أعتذر عن ما صدر مني من ألفاظ،
وأطلب منك ومن بقية الأعضاء والإدارة العفو والسماح،
وأعدكم بعدم تكرارها،
هذا إن كتب لي الاستمرار في هذا المنتدى، ومواقع التواصل الإجتماعي عموماً، وإن كان لي من العمر بقية.

[adel27]

الكود لم ينجح 
يأ أخوان ياليت تسـاعدوني

[أبو عمر]

(04-11-15, 07:50 AM)مهموم كتب : السلام عليكم ورحمة الله

أخي أبو عمر

أعتذر عن ما صدر مني من ألفاظ،
وأطلب منك ومن بقية الأعضاء والإدارة العفو والسماح،
وأعدكم بعدم تكرارها،
هذا إن كتب لي الاستمرار في هذا المنتدى، ومواقع التواصل الإجتماعي عموماً، وإن كان لي من العمر بقية.

ثال صلى الله عليه وسلم تفاءلوا بالخير تجدوه
عفى الله عنا جميعا ً
أنت لم تسء لأي احد على العكس انت رجل تستحق الاحترام
وأنت أهلُ له

---

(04-11-15, 12:06 PM)adel27 كتب : الكود لم ينجح 
يأ أخوان ياليت تسـاعدوني

عادل اتعبت نفسك وأتعبت الخلق معك
ارفع مشروعك كل ابوه وأكيد راح يتم التعديل عليه
لكن بقول لك شي ليس كل ما يخطر ببالك يمكن بالبرمجة
كيِّف نفسك على انه احيانا الاكواد تسيرك على هواها

[adel27]

يا أخوان الموضوع بسيط جداً
تستكت الملف يعطي المستخدم رقم بدون ما يكرره عند المستخدمين فقط
الأحتمالات في حال المستخدم الأول أخذ رقم 20 والمستخدم الثاني أخذ رقم 21
وأنجز المستخدم الثاني قبل الأول يحفظ على رقم 20 ويبدل الرقم لدى المستخدم الأول إلى 21 بس

---

مهموم كودك بالطريقه الحاليه
يظهر خطأ  تحت تيبل 1 و  context

[silverlight]

اولا عليك أن تحسب أخر Record في الداتا بيز كالتالي

كود :

Dim maxRecord As Integer = ds.Tables("All_Data").Rows.Count - 1

ثم لحساب الرقم الجديد يمكنك ان تستخدم الكود التالي

كود :

Dim i As Integer = 0
       While i < maxRecord
           TextBox1.Text = CStr(i)
           i += 1
       End While
       End While

او يمكنك استخدام الكود كالتالي:

كود :

       Dim maxRecord As Integer = ds.Tables("All_Data").Rows.Count - 1
       Dim i As Integer = maxRecord + 1
       TextBox1.Text = CStr(i)

لكن سيظل عليك ان تتأكد انه لا يوجد مستخدمان او اكثر يحاولان ادخال بيانات في نفس الوقت و في نفس اللحظة

[adel27]

طيب ياغالي الكود الأول والثاني أضغها في حدث 
حدث الحفظ أم حدث اللود

[silverlight]

اخي الفاضل

أنت اصلا قمت باستخدام DataSet و من ثم اصبحت هنا تتعامل مع Collections او مصفوفات ...... عموما المفروض ان هذا الرقم سيظهر بشكل اتوماتيكي ليوضح رقم Record الجديد الذي سيتم اضافته للداتا بيز ..... لذلك يجب ان تضعه في كود اضافة بيانات جديدة للداتا بيز

[adel27]

ما جاب نتيجه

[adel27]

شباب محتـــاج الحل ضرررررروري