- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 麻烦老是看下这个代码是属于哪里出的问题一直报这一个错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175694)
-- 发布时间：2022/3/15 17:53:00
-- 麻烦老是看下这个代码是属于哪里出的问题一直报这一个错
DataTables("材料统计表").DataRows.Clear
Tables("材料统计表").StopRedraw
Dim cls As List(of String()) = DataTables("formson_4034").GetValues("field0013|field0014|field0016")
For Each cl As String() In cls
Dim cs As Integer = DataTables("formson_4034").Compute("count(id)","field0013 = \'" & cl(0) & "\'And field0014 = \'" & cl(1) & "\'")
Dim hj As Integer = DataTables("formson_4034").Compute("sum(field0023)","field0013 = \'" & cl(0) & "\'and field0014 = \'" & cl(1) & "\'")
Dim avg As Integer = DataTables("formson_4034").Compute("avg(field0023)","field0013 = \'" & cl(0) & "\'and field0014 = \'" & cl(1) & "\'")
Dim max As Integer = DataTables("formson_4034").Compute("max(field0023)","field0013 = \'" & cl(0) & "\'and field0014 = \'" & cl(1) & "\'")
Dim min As Integer = DataTables("formson_4034").Compute("min(field0023)","field0013 = \'" & cl(0) & "\'and field0014 = \'" & cl(1) & "\'")
Dim dr As DataRow = DataTables("材料统计表").AddNew()
dr("材料名称") = cl(0)
dr("规格型号") = cl(1)
dr("采购次数") = cs
dr("数量合计") = hj
dr("平均价格") = avg
dr("最高价格") = max
dr("最低价格") = min
Dim pr As DataRow = DataTables("ctp_enum_item").find("id = " & cl(2))
If pr IsNot Nothing Then
dr("单位") = pr("SHOWVALUE")
End If
Next
Tables("材料统计表").ResumeRedraw
MainTable = Tables("材料统计表")
MessageBox.show("数据输入完毕")
-- 发布时间：2022/3/15 17:54:00
-- 报错如下
-- 发布时间：2022/3/15 20:00:00
--
合并的条件有问题，调试看看
For Each cl As String() In cls
msgbox("field0013 = \'" & cl(0) & "\'And field0014 = \'" & cl(1) & "\'")
Dim cs As Integer = DataTables("formson_4034").Compute("count(id)","field0013 = \'" & cl(0) & "\'And field0014 = \'" & cl(1) & "\'")
-- 发布时间：2022/3/18 8:33:00
--
更改完毕后有开始出这个问题，之前是一个“\\”,替换完毕后还是在报这个错误“”
-- 发布时间：2022/3/18 8:56:00
--
field0013|field0014|field0016这几个列数据应该有特殊符号，导致合并的查询条件有问题。同样使用3楼的方式逐一排查