以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  隐藏其他页面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129687)
--  作者：花开的声音
--  发布时间：2019/1/3 21:41:00
--  隐藏其他页面
Dim tb1 As WinForm.TabControl = e.Form.Controls("机构变更登记")

\' 隐藏除包含有名称之外的页面
For Each pg As  WinForm.TabPage  In tb1.TabPages
    If pg.Name.Contains("名称")=False Then
        pg.Visible=False
    End If
Next

错误？
--  作者：有点甜
--  发布时间：2019/1/3 21:47:00
--  
代码没问题。请弹出pg.name看一下值是否正确