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
这个是什么原因？
加好友 
发短信
Post By：2023/2/25 21:49:00 [显示全部帖子]
