For Each dr As DataRow In DataTables("页面授权表").Select("用户名 = '" & User.Name & "' and 窗口名 = '" & e.Form.Name & "'") Dim ctls() As String = dr("页面名").split(",") For Each c1 As String In ctls e.Form.Controls("查询").TabPages(c1).Visible = not dr("不可见") Next Next