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 "cvcv.htm"
Dim i As Integer = 0
For Each dr As DataRow In dt.DataRows
With wb.AddPreview("","pv" & i ,"含税金额：",dr("含税金额") & "元")
.AddItem("单据编号",dr("单据编号"))
.AddItem("物料名称",dr("物料名称"))
.AddItem("供应商",dr("供应商"))
.Addbutton("审核", "", 1,)
.Addbutton("单据详细", "", 1, "onc/ick='a/ert(""数量:" & dr("数量")& " " &"应采购数量:" & dr("应采购数量") & " " & "单价:" & dr("单价") & " " & "交货日期:" & dr("交货日期") & " " & "金额:" & dr("金额") & " " & """)'")
End With
i = i + 1
Next
e.WriteString(wb.Build)
End Select
想把这个代码 和 page 结合一下 把 弹出的界面做到 第二个 page里面 遇到的问题是 把按钮的值复制过去 会出现
此主题相关图片如下：1.png
该如何实现 请教老师 谢谢
加好友 
发短信
Post By：2019/7/18 10:10:00 [只看该作者]
