以文本方式查看主题

-  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
--  
这个在代码开始的时候有定义,我把代码上传,老师给看下。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt



--  作者:有点蓝
--  发布时间:2022/1/4 20:18:00
--  
If Values("编号").tostring <> Nothing Then
pr("客户编号") = Values("编号")
endif
If Values("联系人").tostring <> Nothing Then
pr("客户联系人") = Values("联系人")
endif