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

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

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

生成的网页是怎么样的

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

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

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

【For Each s As String In {"组1","组2"} 】效果和下面代码完全一样

For Each s As String In DataTables("网站数据").getvalues("分类","是否启用=true and 大类='城市之窗'")

看4楼

For Each dr As DataRow In dt.select("分类='" & s & "' and 是否启用=true and 大类='城市之窗家具案例'")

.Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))

[此贴子已经被作者于2021/10/18 9:30:18编辑过]

提示很明显了，加载的表没有分类这一列。sql没有返回这个列

主题：AddGrid 分组