大红袍老师，又麻烦你了，根据您指导的思路，我折腾了两天还是没有达到效果，逻辑总是混淆
以下代码,把窗口内的所有控件都隐藏了
我一直想实现在授权表中填入表名后勾选不可见或不可编辑，仅仅看不到TabControl里的表或表不可编辑，但是需要保留窗口内的TabControl控件和其他控件可见，因为我设计的TabControl控件作为主页的重要组成部分，里面包含有多个页面，只让某个页面下的表不可见，其他页面能正常使用。
Dim dt As DataTable = DataTables("授权表")
For Each dr As DataRow In dt.Select("表名 = '工资' and 分组名 = '" & _UserGroup & "' and 窗口 is null")
If dr("不可见") Then
For Each ctl As object In e.Form.Controls
ctl.Visible = False 老师指导的代码是e.Form.Close
Next
ElseIf dr("不可编辑") Then
For Each c As object In e.Form.Controls
c.Visible = False
Next
End If
Next
加好友 
发短信
Post By：2015/12/21 10:50:00 [显示全部帖子]
