移动开发中图文组合列表 如何遍历生成对应的页面内容?
当前代码运行效果如下:
此主题相关图片如下:捕获2.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-5/2021522189717677.png)
当前代码如下:
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim port As String
Dim ip As String
Dim neirong As String
Dim mulu As String
With wb.AddPanelGroup("","pg1","图文组合列表")
For Each dr As DataRow In DataTables("基础资料表").DataRows
For Each dc As DataCol In DataTables("基础资料表").DataCols
Output.Show(dc.Name)
If dc.name="端口"
port=dr("端口")
End If
If dc.name="ip"
ip=dr("ip")
End If
If dc.name="服务名称"
neirong=dr("服务名称")
End If
If dc.name="项目目录"
mulu=dr("项目目录")
End If
Next
With .Add("pn2",neirong,shijian,"./images/search.png") '带子链接
.AddFoot("地址")
.AddFoot("端口")
.AddFoot("点击详情")
End With
Next
End With
e.WriteString(wb.Build) '生成网页
怎么实现红色部分地址紧跟显示:laiyuan内容 端口紧跟显示:biaoti内容 点击详情后进入 wenzhang.htm
实现上述内容正常显示后,如果要点击进入详情页怎么设计呢?以下页面怎么赋值并且自动批量生成对应的多个页面?
wenzhang.htm 代码如下:
Dim wb As New WeUI
With wb.AddArticle("","ar1")
.AddTitle("h1","大标题") ‘显示服务名称’
.AddContent("……") ‘显示项目目录’
.AddContent("……") ‘显示时间’
.AddContent("……") ‘显示来源’
End With
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2021/5/22 18:17:22编辑过]