[hglogtd]

السلام عليكم 


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


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

كود :

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  ما نفع معاي حاولت وارجوا اني الاقي احد يساعدني وفقكم الله




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



مرفق مثال

[hglogtd]

من ضمن تعديلي على الكود لكن يطلع لي خطا

كود :

 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

[alma2]

كود :

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))

[hglogtd]

اسعدك الله في الدارين

بجرب الكود وارد لك ...

[hglogtd]

الكود شغال 100%

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