主题：这个错误提示怎么去掉

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

 

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

 弄成一个内部函数，写到每个窗口的AfterLoad事件，总体控制。

 可以，以后修改麻烦。

Dim e = Args(0)

 

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

 

-----------------------

 

调用

 

Functions.Execute("test", e)