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

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

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

e.WriteString(wb.Build)

AddPreview

不能折叠吗

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

.Attribute = """

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

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

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

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

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

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

End With

wb.AppendHTML("<script>pg5.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)

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)

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

.Attribute = "onclick=""if(this.childNodes[3].style.display != 'none') {this.childNodes[3].style.display = 'none'} else {this.childNodes[3].style.display = 'block'}"""

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)

打开是默认合并了但是点击不会展开

两种方案都试过了不行

[此贴子已经被作者于2018/3/23 13:09:33编辑过]

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内容