以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [请教]网页里头一开始就隐藏某个区块,如何操作?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177205)

--  作者:kylin
--  发布时间:2022/5/12 18:47:00
--  [请教]网页里头一开始就隐藏某个区块,如何操作?
以帮助中的实例:

Select Case e.Path
    Case "addnew.htm"
        Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
        wb.AddForm("", "form1", "addnew.htm")
        With wb.AddInputGroup("form1", "ipg1", "新增订单")
            .AddSelect("cp", "产品", "PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy", "雇员", "text")
            .AddInput("kh", "客户", "text")
            .AddInput("dj", "单价", "number")
            .AddInput("zk", "折扣", "number")
            .AddInput("sl", "数量", "number")
            .AddInput("rq", "日期", "date")
        End With
【希望一开始就要隐藏gy、kh,这个代码怎么写?如果一开始就要隐藏form1,这个代码又要怎么写?
        With wb.AddButtonGroup("form1", "btg1", True)
            .Add("btnok", "确定")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select



--  作者:有点蓝
--  发布时间:2022/5/12 20:10:00
--  
隐藏某个控件
wb.AppendHTML("<script>document.getElementById(\'gy\').parentNode.parentNode.style.display = \'none\';</script>")

隐藏form
wb.AddForm("", "form1", "addnew.htm").Attribute = "style=\'display:none\'"

--  作者:kylin
--  发布时间:2022/5/13 10:04:00
--  
非常感谢!图片点击可在新窗口打开查看
--  作者:kylin
--  发布时间:2022/5/13 21:30:00
--  
隐藏某个控件
wb.AppendHTML("<script>document.getElementById(\'gy\').parentNode.parentNode.style.display = \'none\';</script>")

实测,要删去一个.parentNode只保留一个