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

不写函数直接放到窗口的事件中也行吧？

 可以，以后修改麻烦。

谢谢红袍老师，问题都解决了。

定义函数的时候出错啦。
此主题相关图片如下：定义函数.png

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)