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

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


اسعد الله صباحكم ومسائكم بكل خير 


عندي كود وظيفته عند تشغيل الفورم يقوم بقراءة اسم المستخدم على الدومين فإذا كان موجود من ضمن الاسماء الموجوده قاعدة البيانات مضاف يظهر البوتون 

كود :
Me.Cheqs_userTableAdapter.Fill(Me.BIDataSet.cheqs_user)
       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button1.Visible = False

 
وطبعا شغال الكود تمام على user_admin اما user_edit و user_view  ما نفع معاي حاولت وارجوا اني الاقي احد يساعدني وفقكم الله




صورة من القاعدة 



مرفق مثال
من ضمن تعديلي على الكود لكن يطلع لي خطا

كود :
 Me.Cheqs_userTableAdapter.Fill(Me.BIDataSet.cheqs_user)
       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button1.Visible = False

       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_edit, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button2.Visible = False

       Dim ret As Boolean = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_view, Environment.UserName, StringComparison.OrdinalIgnoreCase))
       If Not ret Then Button3.Visible = False
كود :
Button1.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_admin, Environment.UserName, StringComparison.OrdinalIgnoreCase))
        Button2.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_edit, Environment.UserName, StringComparison.OrdinalIgnoreCase))
        Button3.Visible = Me.BIDataSet.cheqs_user.Any(Function(row) String.Equals(row.user_view, Environment.UserName, StringComparison.OrdinalIgnoreCase))
اسعدك الله في الدارين

بجرب الكود وارد لك ...
الكود شغال 100%

وبارك الله فيك تمام التمام