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
怎么结合使用 不一样
加好友 
发短信
Post By：2021/8/23 9:45:00 [显示全部帖子]
