[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