求助：自动增加Grid(网格按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "test.htm"
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","WeUI","微信网页设计样式库")
        With wb.AddGrid("","g1")

.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")

通过历史案例表

对应

c3 序号列

Toast 名称列

./images/toast.png 图标列

http://www.foxtable.com 链接列

根据表的行自动增加Grid(网格按钮

不想下面的需要一个个的增加

            .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")
            .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 dr as datarow in datatables("表A")

.Add(dr("名称"),dr("标题"), dr("图标", dr("链接"))

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Select Case e.Path

Case "mzal.htm"

Dim bm As String

Dim gw As String

Dim name As String

Dim userid = Functions.Execute("验证函数",e,"mzal.htm")

If userid > "" Then

wb.AppendCookie("userid",userid) '将用户名和密码写入cookie

Dim wxdr As DataRow = DataTables("users").SQLFind("userid='" & userid & "'")

If wxdr IsNot Nothing Then

gw = wxdr("position")

name = wxdr("name")

Dim wxdr1 As DataRow = DataTables("departments").SQLFind("id='" & wxdr("department") & "'")

If wxdr1 IsNot Nothing Then

bm= wxdr1("name")

End If

'e.WriteString(name & userid & "USERID获取成功" & gw & bm)

'------------------------------------------------------------------------------------------------------------------------------

wb.AddPageTitle("","pageheader100","IDIR","艾迪尔国际家居")

wb.AddPageTitle("","pageheader1","","日常工作")

With wb.AddGrid("","g1")

For Each dr As DataRow In datatables("网页表")

.Add(dr("名称"),dr("标题"), dr("图标", dr("网页链接"))

End With

'-----------------------------------------------------------------------------------

End If

End Select

---------------------------

错误

---------------------------

编译错误:表达式的类型为“DataTable”，该类型不是集合类型。

错误代码：For Each dr As DataRow In datatables("网页表")

---------------------------

确定

---------------------------

一些基本的错误应该会自己判断吧

For Each dr As DataRow In datatables("网页表").datarows

.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))

老师我想根据网页表的版面列来筛选轻奢系列行生成当前页面

还需要请教

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Select Case e.Path

Case "qsxl.htm"

Dim bm As String

Dim gw As String

Dim name As String

Dim userid = Functions.Execute("验证函数",e,"qsxl.htm")

If userid > "" Then

wb.AppendCookie("userid",userid) '将用户名和密码写入cookie

Dim wxdr As DataRow = DataTables("users").SQLFind("userid='" & userid & "'")

If wxdr IsNot Nothing Then

gw = wxdr("position")

name = wxdr("name")

Dim wxdr1 As DataRow = DataTables("departments").SQLFind("id='" & wxdr("department") & "'")

If wxdr1 IsNot Nothing Then

bm= wxdr1("name")

End If

'e.WriteString(name & userid & "USERID获取成功" & gw & bm)

''------------------------------------------------------------------------------------------------------------------------------

wb.AddPageTitle("","pageheader100","艾迪尔木作","轻奢产品目录")

With wb.AddGrid("","g1")

For Each dr As DataRow In DataTables("网页表").datarows

For Each dr As DataRow

If dr("版面") = "轻奢系列"

.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))

End If

'For Each dr As DataRow In DataTables("网页表").datarows

'.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))

'Next

End With

e.WriteString(wb.Build)

'-----------------------------------------------------------------------------------

End If

End Select

[此贴子已经被作者于2018/3/10 19:02:32编辑过]

For Each dr As DataRow In DataTables("网页表").Select("版面 = '轻奢系列'")
.Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))
Next

主题：求助：自动增加Grid(网格按钮