Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE ECT * from 采购订单"
dt = cmd.ExecuteReader()
Select Case e.Path
Case "frfr.htm"
wb.AddPage("","page1") '增加两个page
wb.AddPage("","page2",False) '第二个
With wb.AddArticle("page1","ar1")
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
With wb.AddPreview("page1","pv" & i ,"含税金额:",dr("含税金额") & "元")
.AddItem("单据编号",dr("单据编号"))
.AddItem("物料名称",dr("物料名称"))
.AddItem("供应商",dr("供应商"))
.Addbutton("详细","" , 1,""")
i = i + 1
End With
Next
End With
With wb.AddArticle("page2","ar2")
With wb.AddTable("page2","Table1")
.Highlight = -1 '关闭高亮显示功能
.head.AddRow("应付","") '表头
.body.AddRow("数量","") '数据
.body.AddRow("金额","")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
现在页面跳转是正常的了， 想请教老师 要怎么想把表格里面的数据 用动态填充到page2里面。 一定要用到传递主键吗， 那在page里面 如何传递 求助老师
加好友 
发短信
Post By：2019/7/19 14:40:00 [只看该作者]
