[rohiem]

السلام عليكم ورحمة الله وبركاته
لدي جدول للموظفين ... وجدول آخر للصلاحيات
في جدول الصلاحيات لدي الحقول التالية ( رقم المستخدم، إسم الفورم ، تسمية الفورم ، فتح ، إضافة )
هذا صف مثلاً : ( 1 ،frmemp، المستخدمين، Yes ،Yes )
عملت مصفوفتين لأسماء الفورمات وتسمياتها على الترتيب

كود :

Public frmsNames As String() = {"Dep", "frmemp", "frmset"}
Public frmsTxt As String() = {"الأقسام", "المستخدمون", "الإعدادات"}

عند إضافة مستخدم جديد في زر الحفظ وضعت هذا الكود

كود :

For i As Integer = 0 To frmsNames.Count - 1
Insert("aut", {"autEmp", empid.Text, "autForm", frmsNames(i), "autfrmname", frmsTxt(i)})
Next

كل شيء تمام إلى هنا ..

الآن ماذا لو كان لدي عدد كبير من المستخدمين مسجلين في البرنامج وأضفت نموذج جديد !! فصارت المصفوفة هكذا

كود :

Public frmsNames As String() = {"Dep", "frmemp", "frmset","country"}
Public frmsTxt As String() = {"الأقسام", "المستخدمون", "الإعدادات", "المنطقة"}

كيف أضيف صلاحيات النموذج الجديد للمستخدمين السابقين ..؟؟
فكرة الحل : البحث عن التكرار بين المصفوفة وبين جدول الصلاحيات .. ثم إضافة الغير موجودة في صفوف جديدة
الرجاء المساعدة ولكم جزيل الشكر