麻烦老师帮忙看看以下代码 从第一个page调到第二个page正常 第二个点详情 也能调到第三个page 第三个page能返回第一或者第二个page ， 但是点过详情之后第一个page 可以调到第二个page 第二个page 点击事件都不管用了
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "test.htm"
wb.AddPage("","page1") '增加两个page
wb.AddPage("","page2",False) '第二个
wb.AddPage("","page3",False) '第二个
wb.AddForm("page1","form2","test.htm")
With wb.AddInputGroup("form2","tjipg1","第一页")
End With
With wb.AddButtonGroup("form2","tjbtg2",False)
.Add("cx", "查询","button").Attribute="""
.Add("fh", "返回", "", "index.htm")
End With
With wb.AddActionSheet("page2","menu") '设计菜单
.Add("mnudAdd", "详情").Attribute="""
.Add("mnuCancel","取消","",True)
End With
'根据此页数据生成网页
With wb.AddArticle("page2","ar2")
.AddTitle("h2","第二页面")
.AddContent("当前第二页面.")
.AddImage("./images/002.jpg")
End With
With wb.AddTable("page2","Table1")
.ActiveSheet = "menu"
Dim nms() As String = {"NO.","产品","客户","数量"}
.Head.AddRow(nms)
With .Body.AddRow("NO.","产品","客户","数量")
End With
End With
With wb.AddButtonGroup("page2","aaa")
.Add("btn2", "返回第一页", "button").Attribute="""
End With
With wb.AddArticle("page3","ar3")
.AddTitle("h1","第三页面")
.AddContent("第三页 易表.net介于电子表格和数据库软件之间,它有类似电子表格的界面,同时又有很多数据库软件特有的功能和灵活性,它能将复杂的操作简单化,让普通用户轻松完成复杂的数据管理和统计分析工作.")
.AddImage("./images/002.jpg")
End With
With wb.AddButtonGroup("page3","btg2")
.Add("btn2", "返回第二页", "button").Attribute="""
.Add("btn2", "返回第一页", "button").Attribute="""
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2020/9/3 15:05:00 [显示全部帖子]
