تقييم الموضوع :
  • 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
فمشى الحال .. جزاكم الله خير
من عنده نصيحة أو تصحيح لا يبخل علينا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [نقاش] ماهو الفرق بين  sql server 2008 r2 و sql الموجودة في الفيجوال استديو 2010 Amrjamil 0 27 21-09-17, 06:20 PM
آخر رد: Amrjamil
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 798 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
Question [سؤال] وكيف عمل إضافة الى قاعدة البيانات من خلال برنامجي المرفق برمجياً؟ Microformt 0 452 23-08-15, 07:16 PM
آخر رد: Microformt
  [سؤال] ما الفرق عندما تكون قيمة الحقل null وبين ان يكون خاليا mesm23 1 690 18-05-14, 05:40 PM
آخر رد: vbnet
  [سؤال] ما الفرق بين Store Procedure and function aymangermany 2 2,139 03-03-14, 04:47 PM
آخر رد: aymangermany
  [سؤال] كيفية إنشاء قاعدة بيانات أكسس عندما يتم إضافة مستخدم جديد staryas54 3 1,252 28-02-14, 05:50 PM
آخر رد: ahmed saba
  مشكلة في إضافة السجلات Mohammad Ashraf 3 1,019 22-01-14, 05:19 PM
آخر رد: محمد سلمان
  الفرق بين تاريخين في الداتا جريد nabil 2 1,256 23-11-13, 04:43 PM
آخر رد: Abu Ehab
Question [سؤال] الفرق بين كويري (استعلام) و كويري اخر hoob computer 2 957 02-10-13, 06:09 PM
آخر رد: hoob computer
  الفرق بين اكواد access &sql مع vb.net nabil 0 729 26-09-13, 02:08 AM
آخر رد: nabil

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


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