[زكريا النابهي]

(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;
             }
             
         }