Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：自动增加Panel内容


  共有2680人关注过本帖树形打印复制链接

主题：求助：自动增加Panel内容
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		求助：自动增加Panel内容  发帖心情 Post By：2018/3/21 11:45:00 [显示全部帖子]

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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/3/21 14:46:00 [显示全部帖子]

http://www.foxtable.com/mobilehelp/
我是要这种版面
和2楼不一样
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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) 
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/3/22 23:19:00 [显示全部帖子]

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
                        Next
                    End With
wb.AppendHTML("<script>pg5.childNodes[3].style.display = 'none';</script>")
                e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/3/23 13:07:00 [显示全部帖子]

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
                        Next
                    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
                    Next
                End With
wb.AppendHTML("<script>pg1.childNodes[3].style.display = 'none';</script>")
                e.WriteString(wb.Build)
打开是默认合并了  但是点击不会展开

两种方案都试过了 不行
[此贴子已经被作者于2018/3/23 13:09:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/3/23 13:08:00 [显示全部帖子]

"""

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询