以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不同页面表的菜单按钮，提交到同一个页面处理，如何区分？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158782)
--  作者：foxtablefanse
--  发布时间：2020/12/2 12:34:00
--  不同页面表的菜单按钮，提交到同一个页面处理，如何区分？
不同页面表的菜单按钮，提交到同一个页面处理，如何区分是从哪个页面提交的？红色字体部分要怎么写？

页面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编辑过]
--  作者：foxtablefanse
--  发布时间：2020/12/2 13:19:00
--  
不同页面表的菜单按钮，提交到同一个页面处理，如何区分？  发帖心情 Post By：2020/12/2 12:34:00 [只看该作者] 

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

页面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
......
--  作者：reachtone
--  发布时间：2020/12/2 17:48:00
--  
帮你转到专家坐堂吧，weui的东西我很少用。
--  作者：有点蓝
--  发布时间：2020/12/3 8:30:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=158784&skin=0