- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- MsgPage提示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174154)
-- 发布时间：2022/1/4 16:31:00
-- MsgPage提示问题
按照帮助文件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编辑过]
-- 发布时间：2022/1/4 16:57:00
--
没有定义wb
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
-- 发布时间：2022/1/4 17:52:00
--
这个在代码开始的时候有定义，我把代码上传，老师给看下。
-- 发布时间：2022/1/4 20:18:00
--
If Values("编号").tostring <> Nothing Then
pr("客户编号") = Values("编号")
endif
If Values("联系人").tostring <> Nothing Then
pr("客户联系人") = Values("联系人")
endif