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

此主题相关图片如下：无标题.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) \'生成网页

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内部函数