以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调用的目标发生了异常。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185497)
--  作者：ycs5801
--  发布时间：2023/2/25 21:49:00
--  调用的目标发生了异常。
Dim e As RequestEventArgs = args(0)
Dim wb As New weui

Dim sb As New StringBuilder
Dim jo As JObject = JObject.Parse(e.PlainText) \'解析JSON数据
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dt1 As DataTable
cmd.C

Dim openid As String = jo("openid").ToString


cmd.CommandText = " sel ect * from 员工点餐表 where openid = \'" & openid & "\' and  点餐日期>=\'" & Date.Today.AddDays( - 3) & "\' order by 点餐日期 desc,时间 desc "
dt1 = cmd.ExecuteReader()
Dim txt As String
With wb.AddPanelGroup("page5", "page5pg1", "点餐清单")
    If dt1.DataRows.Count > 0 Then
        For Each dr5 As DataRow In dt1.DataRows
            txt = "菜品:" & dr5("菜品") & " 数量:" & dr5("数量") & " 单价:" & dr5("单价") & " 金额:" & dr5("数量") * dr5("单价")
            .Add(dr5("单据内码"), dr5("用餐日期") & dr5("时间") , txt, dr5("图片"), "") \'超链接
        Next \'\'
    End If
End With

With wb.AddButtonGroup("page5", "page5btngrp1", False)
    .Add("page5btn1", "返回", "").Attribute = """
End With

txt = wb.BuildHTML("page5pg1")
txt = txt & wb.BuildHTML("page5btngrp1")

e.WriteString(txt)

以上是源代码
下边是错误提示
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：自定义函数,ydqdcx
详细错误信息：
调用的目标发生了异常。
值不能为 null。
参数名: s

这个是什么原因？
--  作者：有点蓝
--  发布时间：2023/2/26 20:03:00
--  
调试看是哪一句代码出错
--  作者：ycs5801
--  发布时间：2023/2/26 22:28:00
--  
不定时出现，调试不出来
--  作者：有点蓝
--  发布时间：2023/2/26 23:52:00
--  
使用日志记录错误，多测试，找到出错的规律