主题：内部函数的问题

以下是引用逛逛在2014-4-4 10:25:00的发言：

 

Dim e as Object = Args(0)

For Each dr As DataRow In DataTables("SY系统权限表").Select("分组名称 = '" & User.name & "'" )

    If dr.IsNull("按扭名") =False Then

        e.Form.Controls(dr("按扭名")).Visible = Not dr("不可见")

        e.Form.Controls(dr("按扭名")).Enabled = Not dr("不可用")

    End If

Next

 

 

Functions.Execute(函数名，e)