Foxtable(狐表)用户栏目专家坐堂 → [求助]不同页面表的菜单按钮,提交到同一个页面处理,如何区分?


  共有1890人关注过本帖树形打印复制链接

主题:[求助]不同页面表的菜单按钮,提交到同一个页面处理,如何区分?

帅哥哟,离线,有人找我吗?
foxtablefanse
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:550 积分:5205 威望:0 精华:0 注册:2018/11/6 10:54:00
[求助]不同页面表的菜单按钮,提交到同一个页面处理,如何区分?  发帖心情 Post By:2020/12/2 13:51: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
......

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/2 14:06:00 [只看该作者]

增加一个参数

js 函数:
function copy(t){
    location="ludancopy.htm?t=" + t + "page=" + table1.pagenumber + "&key=" + table1.primarykey;
}

.Attribute ="onclick='copy(""mnuCopy1"")'"
……

Dim b As String=e.GetValues("t") 
if b = "mnuCopy1" then
.........


 回到顶部
帅哥哟,离线,有人找我吗?
foxtablefanse
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:550 积分:5205 威望:0 精华:0 注册:2018/11/6 10:54:00
  发帖心情 Post By:2020/12/2 14:45:00 [只看该作者]

谢谢蓝版,这样可以了

location="ludancopy.htm?t=" + t + "
&page=" + table1.pagenumber + "&key=" + table1.primarykey;

 回到顶部