主题：[求助]找不到自定义函数

  老师，程序偶尔会出现这样的错误，但我自己测试过程就没有发现。

 

此主题相关图片如下：无标题.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:aa.txt

 

HttpRequest 里的代码

 

Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
Sel ect Case e.Path     
    Case "receive.htm"
        For  Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"F:\" & fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
    Case "wefox"
        Functions.Execute("wefox",e)
    Case  "getBrands.htm"
        Dim pps As String = DataTables("人员表").SQLGetComboListString("部门","公司='" & e.PostValues("公司") & "'")
        e.WriteString(pps)
    Case "logon.htm",""
        Dim path As String = e.Path
        If path = Nothing Then path = "logon.htm"
        Functions.Execute(path.replace(".htm",""),e)
    Case Else
        Functions.Execute(e.path.replace(".htm",""),e)
    End  Select

 

 

自定义函数 mact

 

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

wb.AddPageTitle("","pageheader","2020","上格兰格春节联欢晚会")

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

wb.AddPage("","page1") '增加两个page

With wb.AddArticle("page1","ar1")

    .AddTitle("h1","关于节目评分标准")

    .AddContent("使用说明:评委按节目评分标准逐项打分,由计分员收集统计总分..")

    .AddImage("./images/score1.png")

End With

wb.AddForm("","form1","logon.htm")

With wb.AddButtonGroup("form1","btg1",True)  '垂直排列

    .Add("btn5", "返回", "", "homepage.htm") '单击这个按钮可以打开foxtable主页

End With

e.WriteString(wb.Build) '生成网页

使用日志跟踪一下每次访问的e.path是什么值？这种一般是服务器有多个ip，或者是有代理，等原因导致的。

老师不会分析，请帮忙

编辑BeforeShowErrorMessage项目事件，代码如下：

Functions.Execute("LogText",e.ex) e.Cancel = True

这里定义了一个内部函数LogText，代码如下：

Dim v  = Args(0) Dim msg As String If Typeof v Is Exception Then '如果是Exception的异常类型,则递归获取所有的异常堆栈     Do While v IsNot Nothing         msg &= v.Message &  vbcrlf & v.StackTrace & vbcrlf         v = v.InnerException     Loop Else '其它情况只能传入错误的文本内容     msg = v End If Output.Logs("AppLogging").Add(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff") & vbCrLf & msg) Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) '日志位于当前项目目录里 Output.Logs("AppLogging").Clear   以下是Mmsglog.txt的内容

2019-12-30 11:50:11.0111
调用的目标发生了异常。
   在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)
   在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)
未将对象引用设置到对象的实例。
   在 UserCode.AMlt63PCZEvXtvcPl(Object[] Args)

 

2019-12-30 14:01:27.0816
调用的目标发生了异常。
   在 System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor)
   在 System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.UserFunctions.Execute(String Name, Object[] Args)
未将对象引用设置到对象的实例。
   在 UserCode.AMlt63PCZEvXtvcPl(Object[] Args)

HttpRequest 里的代码

 

Functions.Execute("LogText","e.Path=" & e.Path  & ",e.Host=" & e.Host  ) ‘事件第一行加上这一句代码

Dim wb As New weui
wb.AddPageTitle("","pageheader","2020","春节联欢晚会")
Sel ect Case e.Path      
    Case "receive.htm"
        For  Each key As String In e.Files.Keys
……

2019-12-31 08:57:34.5126
e.Path=logon.htm,e.Host=sg.vipgz2.idcfengye.com
2019-12-31 08:57:34.6036
e.Path=logon.htm,e.Host=sg.vipgz2.idcfengye.com
2019-12-31 08:57:34.7136
e.Path=logon.htm,e.Host=sg.vipgz2.idcfengye.com

 

2019-12-31 08:59:06.5888
e.Path=http:\\sg.vipgz2.idcfengye.com\score.htm,e.Host=sg.vipgz2.idcfengye.com

 

老师，文件内看到的内容如上，就发现红色字的与正常的不一样，提示找不到Score内部函数

 

再跟踪一下：

检查代码。看什么地方有合成访问地址的地方，应该是合成了错误的地址