专家坐堂-关于AddSwitchFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于AddSwitch  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146062)

--  作者：ap9709130
--  发布时间：2020/2/15 14:02:00
--  关于AddSwitch

老师

根据帮助的代码,如果加一个隐藏的开关?

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True)
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

我想把 vip 隐藏了,代码要怎么写 ?

--  作者：有点蓝
--  发布时间：2020/2/15 14:41:00
--

Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加客户")
.AddInput("xm","姓名","text")
.AddInput("nl","年龄","number")
.AddSwitch("hy","会员",True)
.AddSwitch("vip","VIP客户")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.InsertHTML("<script>document.getElementById(""vip"").parentNode.parentNode.style.display = \'none\';</script>")
e.WriteString(wb.Build) \'生成网页
End Select