[rohiem]

جزاكم الله خيراً
جلست أبحث وأجرب فوصلت إلى نتيجة صحيحة .. قد تكون مطولة لكنها أدت الغرض .. ومن لديه اختصار أو تصحيح لها فلا يبخل به ..
==========
قمت بعمل مصفوفة بجميع أرقام الموظفين 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

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