主题：页面传值问题

addnew2

 

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

If e.PostValues.Count = 0 Then '生成增加订单网页

    wb.AddForm("","form1","addnew2.htm?key=" & e.getvalues("key"))

……

    With wb.AddMsgPage("","msgpage","增加成功", "计重增加成功") '增加订单成功提示信息

        .AddButton("btn1","继续增加","addnew2.htm?key=" & e.getvalues("key"))

        .AddButton("btn1","返回首页","list1.htm")

    End With

又遇到问题，edit2页面中修改完数据后想返回list2页面，怎么返回呢？已用黄色底色标出。

又遇到问题，edit2页面中修改完数据后想返回list2页面，怎么返回呢？已用黄色底色标出。

附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eventcode.rar

代码有什么问题？

返回时报错，页面中key值错误。

Dim PageURL = "list2.htm?page=" & page &  "&key=" & zd  ‘哪里来的zd ？

Dim PageURL = "list2.htm?page=" & page &  "&key=" & PrimaryKey

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:eventcode1.rar