منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : احتاج تعديل الكود "تأكد من الصلاحية"
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

عندي كود التأكد من الصلاحيه 

كود :
  'BtnNew.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_new, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))
        'BbtnEdit.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_edit, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))
        'BbtnDelete.Visible = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_delete, Emp_ID_PKLabel1.Text, StringComparison.OrdinalIgnoreCase))

احتاج تعديله بما يتناسب مع البرنامج  بحيث اذا لم يكن لديه صلاحيه يعطي البوتون مضلل مرفق صورة من جدول الصلاحيات وفقكم الله اتقبل آرائكم وفقكم الله فأنا والله اتعلم منكم ...
ضع Enabled بدلا من Visible
BtnNew.enabled = Me.ModDataSet.tblEmployees.Any(Function(row) String.Equals(row.prive_new, ....................., StringComparison.OrdinalIgnoreCase))

تمام لكن الكود يكون فيه خطا لابد اكتب له اذا كان True
حسب الكود في فإن Any تعيد True أو False