تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إيجاد الفرق بين مصفوفة وعمود مع إضافة المفقود
#1
السلام عليكم ورحمة الله وبركاته
لدي جدول للموظفين ... وجدول آخر للصلاحيات
في جدول الصلاحيات لدي الحقول التالية ( رقم المستخدم، إسم الفورم ، تسمية الفورم ، فتح ، إضافة )
هذا صف مثلاً : ( 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() = {"الأقسام", "المستخدمون", "الإعدادات", "المنطقة"}

كيف أضيف صلاحيات النموذج الجديد للمستخدمين السابقين ..؟؟
فكرة الحل : البحث عن التكرار بين المصفوفة وبين جدول الصلاحيات .. ثم إضافة الغير موجودة في صفوف جديدة
الرجاء المساعدة ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
جزاكم الله خيراً
جلست أبحث وأجرب فوصلت إلى نتيجة صحيحة .. قد تكون مطولة لكنها أدت الغرض .. ومن لديه اختصار أو تصحيح لها فلا يبخل به ..
==========
قمت بعمل مصفوفة بجميع أرقام الموظفين empallid
ثم بجملة التكرار
كود :
For em As Integer = 0 To empallid.Count - 1
لكل رقم موظف يعمل مصفوفة (auarr) فيها أسماء الفورمات الموجودة داخل جدول الصلاحيات لذلك الموظف ( برقم الموظف )
ثم قمت باستخدام الكود التالي
كود :
Dim nolist = frmsNames.Except(auarr).ToArray()
            If nolist.Length > 0 Then
                For i As Integer = 0 To frmsNames.Count - 1
                    For n As Integer = 0 To nolist.Count - 1
                        If frmsNames(i).Contains(nolist(n)) Then
                            Insert("aut", {"autEmp", empallid(em), "autForm", frmsNames(i), "autfrmname", frmsTxt(i)})
                        End If

                    Next

                Next

            End If
فمشى الحال .. جزاكم الله خير
من عنده نصيحة أو تصحيح لا يبخل علينا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 355 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
Question [سؤال] وكيف عمل إضافة الى قاعدة البيانات من خلال برنامجي المرفق برمجياً؟ Microformt 0 294 23-08-15, 07:16 PM
آخر رد: Microformt
  [سؤال] ما الفرق عندما تكون قيمة الحقل null وبين ان يكون خاليا mesm23 1 535 18-05-14, 05:40 PM
آخر رد: vbnet
  [سؤال] ما الفرق بين Store Procedure and function aymangermany 2 1,601 03-03-14, 04:47 PM
آخر رد: aymangermany
  [سؤال] كيفية إنشاء قاعدة بيانات أكسس عندما يتم إضافة مستخدم جديد staryas54 3 1,005 28-02-14, 05:50 PM
آخر رد: ahmed saba
  مشكلة في إضافة السجلات Mohammad Ashraf 3 799 22-01-14, 05:19 PM
آخر رد: محمد سلمان
  الفرق بين تاريخين في الداتا جريد nabil 2 1,000 23-11-13, 04:43 PM
آخر رد: Abu Ehab
Question [سؤال] الفرق بين كويري (استعلام) و كويري اخر hoob computer 2 831 02-10-13, 06:09 PM
آخر رد: hoob computer
  الفرق بين اكواد access &sql مع vb.net nabil 0 615 26-09-13, 02:08 AM
آخر رد: nabil
  إضافة قيمة إلى عمود من نوع ( نعم/لا)Boolean دمعة المقهور 3 702 30-08-13, 12:28 PM
آخر رد: دمعة المقهور

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم