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

With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt)
            .Add("pn1","标题二",txt,"","http://www.foxtable.com").Badge="新"
            With .Add("pn2","标题三",txt)
                .Badge = "New"
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build) '生成网页

需要根据表的行自动增加

类似下面的做法

For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")
.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))
Next

[此贴子已经被作者于2018/3/21 11:45:53编辑过]

http://www.foxtable.com/mobilehelp/

我是要这种版面

和2楼不一样

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

搞定

可以增加折叠功能吗

wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")

With wb.AddGrid("","g1")

With wb.AddPanelGroup("","pg1","轻奢系列")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg2","古典系列")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '古典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg3","经典系列")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '经典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

e.WriteString(wb.Build)

参考代码

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

With wb.AddTabBar("", "tb1", 0)

.AddPage("page1","轻奢","./images/button.png")

.AddPage("page2","古典","./images/msg.png")

.AddPage("page3","经典","./images/article.png")

.AddButton("bt1","我","./images/cell.png","www.idilcasa.com")

End With

怎么和下面的页面互动关联呢

wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")

With wb.AddGrid("","g1")

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'}"""

能搞成打开默认是收缩的吗

For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg2","古典系列")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '古典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg3","经典系列")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '经典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg4","优秀文章")

For Each dr As DataRow In DataTables("网页表").Select("版面 = '优秀文章'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

e.WriteString(wb.Build)

[此贴子已经被作者于2018/3/21 21:33:26编辑过]

加上红色代码

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

不能收缩

wb.AddPageTitle("","pageheader100","企业日志","艾迪尔国际家居")

With wb.AddGrid("","g1")

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

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

.Attribute = """

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

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

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

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

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

End With

With wb.AddPanelGroup("","pg11","营销部")

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

.Attribute = """

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

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

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

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

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

End With

With wb.AddPanelGroup("","pg12","营销一部")

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

.Attribute = """

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

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

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

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

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

End With

With wb.AddPanelGroup("","pg13","营销二部")

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

.Attribute = """

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

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

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

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

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

End With

With wb.AddPanelGroup("","pg14","营销三部")

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

.Attribute = """

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

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

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

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

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

End With

这段会收缩

wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")

With wb.AddGrid("","g1")

With wb.AddPanelGroup("","pg1","轻奢系列")

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

.Attribute = """

For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg2","古典系列")

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

.Attribute = """

For Each dr As DataRow In DataTables("网页表").Select("版面 = '古典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg3","经典系列")

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

.Attribute = """

For Each dr As DataRow In DataTables("网页表").Select("版面 = '经典系列'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

With wb.AddPanelGroup("","pg4","优秀文章")

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

.Attribute = """

For Each dr As DataRow In DataTables("网页表").Select("版面 = '优秀文章'")

.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))

End With

e.WriteString(wb.Build)

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