不同页面表的菜单按钮，提交到同一个页面处理，如何区分是从哪个页面提交的？红色字体部分要怎么写？
页面1 的菜单：
With wb.AddActionSheet("","menu") '设计菜单
With .Add("mnuCopy", "复制路单")
.Class="mnuCopy1" '分类,多个页面的菜单提交到复制页面,用于在复制页面区分是从哪个页面提交的.
.Attr ibute ="name='mnuCopy2' on click='copy()'"
End With
.Add("mnuEdit", "编辑订单").Attr ibute =""
.Add("mnuDelete", "删除订单").Attr ibute =""
End With
页面2 的菜单：
With wb.AddActionSheet("","menu") '设计菜单
With .Add("mnuCopy", "复制路单")
.Class="mnuCopy2" '分类,多个页面的菜单提交到复制页面,用于在复制页面区分是从哪个页面提交的.
.Attribute ="name='mnuCopy2' on click='copy()'"
End With
.Add("mnuEdit", "编辑订单").Attribute =""
.Add("mnuDelete", "删除订单").Attribute =""
End With
js 函数：
function copy(){
location="ludancopy.htm?page=" + table1.pagenumber + "&key=" + table1.primarykey + "&bt=" + document.getElementByclassName("mnuCopy").name;
}
接收页：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim b As String=e.GetValues("tb") '用于区分是从哪个页面提交的数据
Dim PageURL As String
If b="mnuCopy1" Then
PageURL = "ludanlist1.htm?page=" & PageNumber
ElseIf b="mnuCopy2" Then
PageURL = "ludanlist2.htm?page=" & PageNumber
End If
......
[此贴子已经被作者于2020/12/2 13:13:39编辑过]
加好友 
发短信
Post By：2020/12/2 12:34:00 [只看该作者]
Post By：2020/12/2 12:34:00 [