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
Next
'
End With
e.WriteString(wb.Build)
如何按照 资料分类列 分组显示
此主题相关图片如下:企业微信截图_20210924012223.png
[此贴子已经被作者于2021/9/24 1:25:11编辑过]