[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

e.WriteString(wb.Build)

End Select

想把这个代码和 page 结合一下把弹出的界面做到第二个 page里面遇到的问题是把按钮的值复制过去会出现

此主题相关图片如下：1.png

该如何实现请教老师谢谢

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) '第二个

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("btn1", "下一页", "button").Attribute="""

End With

i = i + 1

With wb.AddArticle("page2","ar2")

.AddTitle("h1","关于易表")

.AddContent("易表.net介于电子表格和数据库软件之间，它有类似电子表格的界面，同时又有很多数据库软件特有的功能和灵活性，它能将复杂的操作简单化，让普通用户轻松完成复杂的数据管理和统计分析工作.")

.AddImage("./images/2.gif")

End With

With wb.AddButtonGroup("page2","btg2")

.Add("btn2", "上一页", "button").Attribute="""

End With

e.WriteString(wb.Build) '生成网页

End Select

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 "fdfd.htm"

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

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,""")

End With

i = i + 1

With wb.AddArticle("page2","ar2")

For Each dy As DataRow In dt.DataRows

With wb.AddPreview("ar2","pv1" ,"含税金额:",dy("含税金额") & "元")

.AddItem("单据编号",dy("单据编号"))

.AddItem("物料名称",dy("物料名称"))

.AddItem("供应商",dy("供应商"))

.AddItem("应采购数量",dy("应采购数量"))

.AddItem("数量",dy("数量"))

.AddItem("单价",dy("单价"))

.AddItem("交货日期",dy("交货日期"))

.AddItem("金额",dy("金额"))

.Addbutton("返回", "", 1,""")

End With

e.WriteString(wb.Build) '生成网页

End Select

大概的意思就是跳转之后可以显示一个详细的然后自己替换之后就显示不出来了是那些地方要修改一下吗还会有跳出page2 page1 还在下半部分的情况多谢老师解答

主题：[求助]