![]() |
|
[سؤال] كيفية اعادة الترقيم عند الحزف - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175) +--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176) +--- الموضوع : [سؤال] كيفية اعادة الترقيم عند الحزف (/showthread.php?tid=1858) |
كيفية اعادة الترقيم عند الحزف - السندباد المصري - 09-02-14 عندي حقل الid حقل بة ارقام من 1 ال 1000 وعند حزف رقم 5 مثلا يبقي فارغا اريد اعادة الترقيم بعد الحزف RE: كيفية اعادة الترقيم عند الحزف - Sajad - 09-02-14 السلام عليكم اذا كان الترقيم تلقائي والزيادة بمقدار واحد فلن تستطيع ارجاع الرقم مرة اخرى تحياتي RE: كيفية اعادة الترقيم عند الحزف - السندباد المصري - 10-02-14 لا مش ترقيم تلقائي RE: كيفية اعادة الترقيم عند الحزف - Genius Live - 11-02-14 (21-09-13, 05:28 PM)@@أبورائد@@ كتب : السلام عليكم و رحمة الله و بركاته انظر المشاركة رقم 4 ![]() ![]()
RE: كيفية اعادة الترقيم عند الحزف - زكريا النابهي - 01-10-15 (09-02-14, 08:32 PM)السندباد المصري كتب : عندي حقل الid حقل بة ارقام من 1 ال 1000 وعند حزف رقم 5 مثلا يبقي فارغا اريد اعادة الترقيم بعد الحزف اولا لا تستخدم الترقيم التلقائي واستخدم حقل رقمي صحيح ثانيا : استخدم هذة الدالة لأعادة الترقيم اذا كان الرقم موجود Dim randomnum As New Random For i As Int16 = 0 To (c - 1) start: x = randomnum.Next(0, c) If (ListBox1.Items.Contains(x)) Then GoTo start End If Next ListBox1.Items.Add(x) استخدم نفس الفكرة بس غير على الحقل المراد فحصة ثالثا : استخدم هذة الدالة لجلب رقم جديد ( ترقيم تلقائي ) public int MaxId (string Table , string field) { Connection(); con.Open(); OleDbCommand cmd = new OleDbCommand("Select MAX(" + field + ")" + " FROM " + Table, con); cmd.Connection = con; if (cmd.ExecuteScalar() == DBNull.Value) { return 1; } else { return int.Parse(cmd.ExecuteScalar().ToString()) + 1; } } |