请教红袍老师：

用开发人员账号登陆没有任何错误提示，换一个普通人员账号登陆提示不存在这个表

此主题相关图片如下：1.png


此主题相关图片如下：2.png

这个表以前可能有，但是被我删除了，但是我目前使用的数据链接中肯定没有，也或者可能是另外一个SQL数据库中的，软件更换了SQL数据库地址。

这个错误的提示怎么去掉呢？

另外，再咨询一个问题，通过例子中的可视化权限管理，虽然把表的标题的隐藏了，但是我发现如果一个窗口中调用了这个表，同样是可以看见这个表的，能不能在这个语句中加一句，让如果没有授权这个用户查看这个表，即使窗口中引用了这个表，这个用户也无法查看窗口中的表。

\'可视化授权
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

你授权表里面有记录，你获取的是表里的值，没有，自然报错

For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )

你可以加一个判断

For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )

    If Tables.Contains(dr("表名")) Then

    End If

在afterLoad事件写代码

For Each c As object In e.form.controls
    If typeof c Is winform.Table Then
        Dim name As String = c.Table.DataTable.name
        Dim fdr As DataRow = DataTables("授权表").find("用户名 = \'" & User.Name & "\' and 表名 = \'" & name & "\' and 列名 is null")
        If fdr IsNot Nothing Then
            c.visible = not fdr("不可见")
            c.Table.AllowEdit = not fdr("不可编辑")
        End If
    End If
Next