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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：自动增加Panel内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116210)

--  作者：yifan3429
--  发布时间：2018/3/21 11:45:00
--  求助：自动增加Panel内容
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编辑过]

--  作者：有点甜
--  发布时间：2018/3/21 13:22:00
--

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116211&skin=0

--  作者：yifan3429
--  发布时间：2018/3/21 14:46:00
--
http://www.foxtable.com/mobilehelp/
我是要这种版面
和2楼不一样

--  作者：有点甜
--  发布时间：2018/3/21 15:44:00
--
和2楼一样的思路处理，不会做上传实例说明。

--  作者：yifan3429
--  发布时间：2018/3/21 16:59:00
--
搞定
可以增加折叠功能吗
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("网页链接"))
Next
End With
With wb.AddPanelGroup("","pg2","古典系列")
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'古典系列\'")
.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
Next
End With
With wb.AddPanelGroup("","pg3","经典系列")
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'经典系列\'")
.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
Next
End With
End With
e.WriteString(wb.Build)

--  作者：有点甜
--  发布时间：2018/3/21 19:28:00
--

参考代码

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

--  作者：yifan3429
--  发布时间：2018/3/21 21:27:00
--

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("网页链接"))
Next
End With
With wb.AddPanelGroup("","pg2","古典系列")
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'古典系列\'")
.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
Next
End With
With wb.AddPanelGroup("","pg3","经典系列")
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'经典系列\'")
.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
Next
End With
With wb.AddPanelGroup("","pg4","优秀文章")
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'优秀文章\'")
.Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
Next
End With
End With
e.WriteString(wb.Build)

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

--  作者：有点甜
--  发布时间：2018/3/21 22:38:00
--

加上红色代码

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

--  作者：yifan3429
--  发布时间：2018/3/22 14:24:00
--

不能收缩

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
Next

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
Next
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
Next
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
Next
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
Next
End With
End With

--  作者：yifan3429
--  发布时间：2018/3/22 14:25:00
--

这段会收缩
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("网页链接"))
Next
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("网页链接"))
Next
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("网页链接"))
Next
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("网页链接"))
Next
End With
End With
e.WriteString(wb.Build)