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


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

主题:AddGrid 分组

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2006 积分:18670 威望: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/24 8:39:00 [只看该作者]

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","WeUI","微信网页设计样式库")
        wb.InsertHTML("<h3 align='left' style='margin-top:5px'>分组1</h3>")
        With wb.AddGrid("","g1")
            .Add("c1","Button", "./images/button.png").Attribute = ""
            .Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
            .Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
            .Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")
            .Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")
            .Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")
        End With
        wb.InsertHTML("<h3 align='left' style='margin-top:5px'>分组2</h3>")
        With wb.AddGrid("","g2")
            .Add("c7","Article", "./images/article.png", "http://www.foxtable.com")
            .Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")
            .Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")
            .Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")
            .Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")
            .Add("c12","SearchBar", "./images/search.png", "http://www.foxtable.com")
        End With
        e.WriteString(wb.Build)
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2006 积分:18670 威望: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)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/24 9:09:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2006 积分:18670 威望: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/14 20:50:00 [只看该作者]

生成的网页是怎么样的

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2006 积分:18670 威望: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/16 9:02:00 [只看该作者]

下面代码我测试没有问题,如果还是搞不懂请上传实例说明

Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","湖南城市之窗",("网页名称"))
        For Each s As String In {"组1","组2"}
            wb.InsertHTML("<h3 align='left' style='margin-top:5px'>" & s & "</h3>")
            With wb.AddGrid("","g" & s)
                For i As Integer = 1 To 4
                    .Add(("函数名称" & i),("网站中文名" & i), ("图标" & i), ("网页链接" & i))
                Next
            End With
        Next
        
        e.WriteString(wb.Build)
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:2006 积分:18670 威望: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

大类  二类  网站中文名 
筛选大类  分组二类   详情是 网站中文名



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:76222 积分:386700 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/17 20:51:00 [只看该作者]

不要那么死板,我连接不到您的数据库,所以测试是直接写死的

For Each s As String In {"组1","组2"} 】效果和下面代码完全一样
For Each s As String In DataTables("网站数据").getvalues("分类","是否启用=true and 大类='城市之窗'")

 回到顶部
总数 16 1 2 下一页