以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合计的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162434)
--  作者：hongye
--  发布时间：2021/4/14 17:42:00
--  合计的问题
Dim Total As Long
Dim txt As String = "\'%返修%\'"
Total = tbl.Compute("Sum(出货件数)", "分仓信息 Not Like " & txt & " Or 分仓信息 Is Nothing ")
Dim sr As WinForm.Label = e.Form.Controls("Label1")
sr.text = Total

这个错了码？
--  作者：有点蓝
--  发布时间：2021/4/14 17:46:00
--  
代码没有问题，什么错误？
--  作者：hongye
--  发布时间：2021/4/14 17:48:00
--  
统计为0
现在改过来了应该如下：
Dim Total As Long
Dim txt As String = "\'%返修%\'"
Total = tbl.Compute("Sum(出货件数)", "分仓信息 Not Like " & txt & " Or 分仓信息 is null")
Dim sr As WinForm.Label = e.Form.Controls("Label1")
sr.text = Total