AddGrid 分组 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2634人关注过本帖树形打印复制链接主题：AddGrid 分组

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2454 积分：22630 威望：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

End With

e.WriteString(wb.Build)

如何按照资料分类列分组显示
图片点击可在新窗口打开查看

此主题相关图片如下：企业微信截图_20210924012223.png

[此贴子已经被作者于2021/9/24 1:25:11编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105941 积分：538774 威望：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

加好友

发短信

等级：九尾狐帖子：2454 积分：22630 威望：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

End With

e.WriteString(wb.Build)

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105941 积分：538774 威望：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("网页链接"))

End With

yifan3429

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2454 积分：22630 威望：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("网页链接"))

End With

e.WriteString(wb.Build)

wb.Save("D:\ctw\WWW\index.html")

End Select

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105941 积分：538774 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/10/14 20:50:00 [只看该作者]

生成的网页是怎么样的

yifan3429

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2454 积分：22630 威望：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

加好友

发短信

等级：超级版主帖子：105941 积分：538774 威望：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))

End With

e.WriteString(wb.Build)

End Select

yifan3429

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2454 积分：22630 威望：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("网页链接")) 内容根据分类添加

End With

End If

大类二类网站中文名

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

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：105941 积分：538774 威望：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 下一页

主题：AddGrid 分组