Bin老师:我想把下面这段窗口权限代码写成一个函数,然后在每个需要权限控制的窗口的afterload事件中调用这个函数
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
但是我不会写这个函数,同时窗口的afterload事件中怎么样调用这个函数,我搞了好久了,搞不定,请您帮我!