以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  网页 后台获取数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171226)
--  作者：yifan3429
--  发布时间：2021/8/23 9:45:00
--  网页 后台获取数据
 For Each dr As DataRow In DataTables("网站数据").datarows

                If dr("是否启用") = True And dr("大类") = ds("域名") Then
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                End If
            Next
上面的代码智能显示当前表显示的数据  我想他从后台筛选出所有符合条件的数据
--  作者：有点蓝
--  发布时间：2021/8/23 9:50:00
--  
http://www.foxtable.com/mobilehelp/topics/0115.htm
--  作者：yifan3429
--  发布时间：2021/8/23 19:11:00
--  
Case ds("网页")
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","湖南城市之窗家居",ds("网页名称"))
        With wb.AddGrid("","g1")            
            Di m c md As new SQLCo m mand
            cm d.C on nectionNa me = "dufox"
            cm d.C om ma ndText= "sel ect 函数名称,网站中文名,图标,[网页链接] Fr om 网站数据"
            With wb.Add Table("","Table1")
                .CreateFr omData Table(cmd.Ex ecut eReader)
            End With
            
            For Each dr As DataRow In DataTables("网站数据").datarows
                If dr("是否启用") = True And dr("大类") = "效果图合集" Then
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
                End  If
            Next
            \'
        End With

怎么结合使用 不一样
--  作者：有点蓝
--  发布时间：2021/8/23 20:01:00
--  
Case ds("网页")
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","湖南城市之窗家居",ds("网页名称"))
        With wb.AddGrid("","g1")            
            Di m c md As new SQLCo m mand
            cm d.C on nectionNa me = "dufox"
            cm d.C om ma ndText= "sel ect 函数名称,网站中文名,图标,[网页链接] Fr om 网站数据 where 是否启用=1 and 大类=\'效果图合集\'"
dim dt as datatable = cmd.Ex ecut eReader
            For Each dr As DataRow Indt.datarows
                    .Add(dr("函数名称"),dr("网站中文名"), dr("图标"), dr("网页链接"))
            Next
            \'
        End With