按照帮助文件http://www.foxtable.com/mobilehelp/index.htm?page=0119.htm
在代码中加入MsgPage用于提示，每次运行到红色字体代码时，先报错，关闭后才执行红色代码，如下图：有什么问题？
此主题相关图片如下：ad52192a-b977-4ba2-a82f-0bf4224b58ba.png
'订单编辑
Dim pr As DataRow '订单
Dim srs As List(of DataRow) '订单明细集合
Dim Page As Integer '页码变量
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
cmd.CommandText = "SELECT 编号,品牌,联系人,备注,手机,经销商等级 F ro m {ZL_往来单位} where 性质 = '客户' and 简称 = '" & Functions.Execute("jiemi",e) & "'"
Dim Values = cmd.ExecuteValues
If Values.Count > 0 Then
pr = Datatables("订单").SQLAddNew() '
pr("编号") = Functions.Execute("GetOrderID") '利用自定义函数GetOrderID为新增订单生成编号.
pr("经销商") = Functions.Execute("jiemi",e)
pr("客户编号") = Values("编号")
'pr("品牌") = Values("品牌")
pr("客户联系人") = Values("联系人")
pr("备注") = Values("备注")
pr("联系电话") = Values("手机")
pr("经销商等级") = Values("经销商等级")
pr("订单日期") = Date.Today()
Else
With wb.AddMsgPage("","msgpage","创建失败","对不起!您还不是本公司的经销商,如有疑问请联系对应的客服处理。谢谢配合！") '提示用户不存在.
.icon= "Warn"
.AddButton("btn1","返回","list.htm") '生成返回原来页面的按钮
End With
End If
e.WriteString(wb.Build) '生成网页
Else '如果传递了订单编号,则找出此订单进行编辑
pr = Datatables("订单").SQLFind("编号='" & e.GetValues("oid") & "'")
If pr Is Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
wb.InSertHtml("此订单已被其他用户删除!")
e.WriteString(wb.Build)
Return "" '必须返回
End If
srs = Datatables("订单明细").SQLSelect("订单编号='" & pr("编号") & "'") '获取订单明细
End If
[此贴子已经被作者于2022/1/4 16:32:19编辑过]
加好友 
发短信
Post By：2022/1/4 16:31:00 [只看该作者]
