求助：自动增加Panel内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

和2楼一样的思路处理，不会做上传实例说明。

参考代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Attribute = "onclick=""if(this.childNodes[3].style.display != 'none') {this.childNodes[3].style.display = 'none'} else {this.childNodes[3].style.display = 'block'}"""
            .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") '超链接
            With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt) '普通列表
            .Add("pn1","标题二",txt,"","http://www.foxtable.com") '超链接
            With .Add("pn2","标题三",txt) '带有子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
            .GroupFoot = "查看更多" '底部链接
            .GroupHref = "http://www.foxtable.com/"
        End With
        e.WriteString(wb.Build) '生成网页
End Select

加上红色代码

wb.AppendHTML("<script>pg1.childNodes[3].style.display = 'none';</script>")

这个代码，写在全部代码的最后，如果还是有问题，做个例子发上来测试

wb.AppendHTML("<script>pg1.childNodes[3].style.display = 'none';</script>")

e.WriteString(wb.Build)

With wb.AddPanelGroup("","pg1","木作事业部")

.Attribute = """

For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = '木作事业部'", "", "日期 Desc")

With wb.AddPreview("pg1","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))

.AddItem("日期",dr("日期"))

.AddItem("今日达成",dr("今日达成"))

.AddItem("明日计划",dr("明日计划"))

.AddItem("营业收入",dr("营业收入"))

End With

wb.AppendHTML("<script>pg1.childNodes[3].style.display = 'none';</script>")

e.WriteString(wb.Build)

Select Case e.Path
    Case "test.htm", ""
        Dim wb As new WeUI
wb.InsertHTML("", "<div onclick=""if(pg1.style.display != 'none') {pg1.style.display = 'none'} else {pg1.style.display = 'block'}""><label style='line-height:3'>木作事业部</label></div>")
        wb.AddPage("","pg1")
        With wb.AddPreview("pg1","pv1","职员","123:456")
            .AddItem("今日达成","今日达成")
            .AddItem("明日计划","明日计划")
            .AddItem("营业收入","营业收入")
        End With

        With wb.AddPreview("pg1","pv2","职员","123:456")
            .AddItem("今日达成","今日达成")
            .AddItem("明日计划","明日计划")
            .AddItem("营业收入","营业收入")
        End With
        wb.AppendHTML("<script>pg1.style.display = 'none';</script>")
        e.WriteString(wb.Build)
End Select

主题：求助：自动增加Panel内容