Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddGrid 分组


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

主题：AddGrid 分组
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		AddGrid 分组  发帖心情 Post By：2021/9/24 1:24:00 [显示全部帖子]

Select Case e.Path
    Case ds("网页")
        Dim wb As N ew WeUI
        wb.AddPage Title("","pageheader","城市之窗产品高清",ds("网页名称"))
        With wb.Ad dGrid("","g1")
 For Each dr As DataRow In Data  Tables("企业资料库").datarows
                If dr("是否启用") = True And dr("资料来源") = "城市之窗" Then
                    .Add("1",dr("资料名称"), "",dr("在线根目录"))
                End If
            Next
            '
        End With
        e.WriteString(wb.Build)
                  
如何按照 资料分类列  分组显示
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20210924012223.png
图片点击可在新窗口打开查看

           
[此贴子已经被作者于2021/9/24 1:25:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/9/24 9:01:00 [显示全部帖子]

Case ds("网页")
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","城市之家",ds("网页名称"))
        With wb.AddGrid("","g1")
                        For Each dr As DataRow In DataTables("网站数据").datarows
wb.InsertHTML("<h3 align='left' style='margin-top:5px'>分组2</h3>")  希望 分组能加到循环内 自动根据数据表的 分类列 分组
                If dr("是否启用") = True And dr("大类") = "城市之家" Then
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                End If
            Next
        End With
        e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

http://yifan9108.oicp.net/  还是不能显示分组功能 求助老师

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20211014193135.png
图片点击可在新窗口打开查看

Dim e As RequestEventArgs = args(0)
Dim ds As Row = Tables("网页表").Current
Tables("网页表").current("访问次数") = Tables("网页表").current("访问次数")+1
Tables("网站数据").current("访问次数") = Tables("网站数据").current("访问次数")+1
Select Case e.Path
    Case ds("网页")
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","湖南城市之窗",ds("网页名称"))
        For Each s As String In DataTables("网站数据").getvalues("分类","是否启用=true and 大类='城市之窗'")
            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>" & s & "</h3>")
            With wb.AddGrid("","g" & s)
                For Each dr As DataRow In DataTables("网站数据").Select("分类='" & s & "' and 是否启用=true and 大类='城市之窗'")
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                Next
            End With
        Next
        
        '
    End With
    e.WriteString(wb.Build)
    wb.Save("D:\ctw\WWW\index.html")
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/10/15 18:47:00 [显示全部帖子]

希望根据前面分类列分层组

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20211015184442.png
图片点击可在新窗口打开查看

如下图格式

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20211015184619.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/10/15 18:47:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","湖南城市之窗",ds("网页名称"))
        For Each s As String In {"组1","组2"}   需要根据分类列自动分组
            If dr("是否启用") = True And dr("大类") = "城市之窗家具案例" Then
                wb.InsertHTML("<h3 align='left' style='margin-top:5px'>" & s & "</h3>")
                With wb.AddGrid("","g" & s)
                    For Each dr As DataRow In dt.datarows
                        .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))    内容根据分类添加
                    Next
                End With
            End If
        Next

大类  二类  网站中文名 
筛选大类  分组二类   详情是 网站中文名
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2021/10/18 9:25:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20211018092255.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20211018092218.png
图片点击可在新窗口打开查看

分组可以了  但是每个组都是全部的子项  没有按照组分离显示  还需要请教老师 

For Each s As String In DataTables("网站数据").getvalues("分类","是否启用=true and 大类='城市之窗家具案例'")
            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>" & s & "</h3>")
            With wb.AddGrid("","g" & s)
                For Each dr As DataRow In dt.datarows
                    If dr("是否启用") = True And dr("大类") = "城市之窗家具案例" Then
                        .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                    End If
                Next
            End With
        Next       '
        e.WriteString(wb.Build)

[此贴子已经被作者于2021/10/18 9:26:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

       
        Di m dt As Da taT able = c m d.Ex ec uteRe ader

        For Each s As String In DataTables("网站数据").getvalues("分类","是否启用=true and 大类='城市之窗家具案例'")
            wb.InsertHTML("<h3 align='center'  style='margin-top:5px'>" & s & "</h3>")
            With wb.AddGrid("","g" & s)
                For Each dr As DataRow In DataTables("网站数据").Sel ect("分类='" & s & "' and 是否启用=true and 大类='城市之窗家具案例'")
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                Next
            End With
        Next
        e.WriteString(wb.Build)


DataTables("网站数据") 换成 dt  不能用 出现错误  老师帮忙看看
[此贴子已经被作者于2021/10/18 10:14:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.9.2.1
错误所在事件：自定义函数,cityal
详细错误信息：
调用的目标发生了异常。
未找到列 [分类]。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询