新增订单提交后，因为一些判断会中途返回修改再提交，怎么返加原来保留输入数据的页面再行修改后提交呢？比如：
Dim nms() As String = {"姓名", "订单日期", "订单时间", "省份", "城市", "客户网名", "客服网名", "单价", "单位" , "收款方式", "交待事项" } '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("page1", "msgpage", "增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1", "返回", "list.htm")
End With
e.WriteString(wb.Build)
Return"" '必须返回
End If
Next
再比如：
With wb.AddDialog("page1", "dlg3", "提示", "对不起,找不到【" & dr8("姓名") & "】的订单计划,请核实后再提交！")
.AddButton("btnOK", "确定", "addnew.htm?page=0")
.AddButton("bdnCancel", "取消", "list.htm").Kind = 0
.Visible = True
End With
e.WriteString(wb.Build)
Return""
加好友 
发短信
Post By：2024/1/1 15:37:00 [显示全部帖子]
