Dialog要放到上一个页面，也就是form1这个绑定所在的页面
然后这个函数里不要使用MsgPage或Dialog，直接返回错误文字即可，比如
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim nms() As String = {"姓名", "订单日期", "订单时间", "省份", "城市", "市", "地铁线", "地铁站", "出发确认", "本人介绍", "联系方式", "开房", "客户网名", "客服网名", "单价", "单位" , "收款方式", "交待事项" } '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
e.WriteString("增加失败", nm & "列不能为空!")
Return"" '必须返回
End If
Next
If e.PostValues.ContainsKey("客户电话") = False And e.PostValues.ContainsKey("客户微信") = False And e.PostValues.ContainsKey("客户QQ") = False Then
e.WriteString("客户电话、微信和QQ不能同时为空！")
Return""
End If
加好友 
发短信
Post By：2024/1/17 12:02:00 [显示全部帖子]
