专家坐堂-[求助]不同页面表的菜单按钮，提交到同一个页面处理，如何区分？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

不同页面表的菜单按钮，提交到同一个页面处理，如何区分是从哪个页面提交的？红色字体部分要怎么写？

页面1 的菜单：

With wb.AddActionSheet("","menu") \'设计菜单

With .Add("mnuCopy", "复制路单")

.Class="mnuCopy1" \'分类,多个页面的菜单提交到复制页面,用于在复制页面区分是从哪个页面提交的.

.Attr ibute ="name=\'mnuCopy1\' 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

......