![]() |
|
[VB.NET] اضافة تسلسل تلقائي - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=32025) |
اضافة تسلسل تلقائي - EMADSSS - 08-11-19 اخواني الكرام ماعم تضبط معي عاوز لما اضغط زر اضافة ينزل بالتكست بوكس ( المعرف ) الرقم الافتراضي تلقائيا يعني لو كان اخر اسم عندي رقمه 10 لما اضغط زر اضافة ينزل رقم 11 تلقائيا في تكست بوكس المعرف مو -1 RE: اضافة تسلسل تلقائي - اسامه الهرماوي - 08-11-19 السلا عليكم... الحل موجود هنا http://vb4arb.com/vb/showthread.php?tid=26843 RE: اضافة تسلسل تلقائي - EMADSSS - 08-11-19 (08-11-19, 03:42 PM)اسامه الهرماوي كتب : السلا عليكم... اخي الكريم عذرا منك لم تتضح لي الفكرة بعد عندي قاعدة البيانات اكسس اسم القاعدة AA اسم الجدول ee اسم العمود المعرف فكيف يصبخ الكود واين اضعه هل في زر بوتن اضافة ام ماذا RE: اضافة تسلسل تلقائي - EMADSSS - 08-11-19 (08-11-19, 05:11 PM)EMADSSS كتب :Dim MaxID As Integer = AADataSet.Tables("ee").AsEnumerable().Max(Function(Row) Convert.ToInt32(Row("المعرف")))(08-11-19, 03:42 PM)اسامه الهرماوي كتب : السلا عليكم... Dim NewID As Integer = MaxID + 1 MsgBox(NewID) جربت هذا الكود اصبحت النتيجة تضهر في رسالة انا عاوز النتيجة تنزل فورا في التكست بوكس RE: اضافة تسلسل تلقائي - ابراهيم ايبو - 08-11-19 السلام عليكم اخي الكريم اكتب التالي كود : TextId.text=MaxId+1RE: اضافة تسلسل تلقائي - EMADSSS - 09-11-19 (08-11-19, 11:06 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم شكرا اخي لكن مامشي الحال اذا بتقدر تضيفلي الكود على المشروع المرفق وكلك ذوق RE: اضافة تسلسل تلقائي - ابراهيم ايبو - 09-11-19 اخي نفس الكود الذي اظهر الرقم في مسج بوكس استبدل المسج بوكس
باسم مربع النص الذي سيظهر فيه الماكس اي دي
RE: اضافة تسلسل تلقائي - EMADSSS - 09-11-19 (09-11-19, 02:33 AM)ابراهيم ايبو كتب : شكرا لك |