以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  后台数据统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173756)
--  作者：张飞
--  发布时间：2021/12/14 20:32:00
--  后台数据统计

用SQLCompute对内部表进行后台数据统计，

Case "工程名称","分项工程","施工部位","施工日期","规格型号"

        If dr.IsNull("工程名称") OrElse dr.IsNull("分项工程") OrElse dr.IsNull("施工部位") OrElse dr.IsNull("施工日期")  Then

            dr("实耗量") = Nothing

        Else

            Dim filter As String

            filter = "[工程名称] = \'" & dr("工程名称") & " \' And [分项工程] = \'" & dr("分项工程") & " \' And [施工部位] = \'" & dr("施工部位") & " \' And [施工日期] = \'" & dr("施工日期") & " \' And [强度等级] = \'" & dr("规格型号") & " \' And [出场拌合站] = \'" & dr("出场拌合站") & " \' "

            dr("实耗量")  = DataTables("混凝土出场台账").Compute("Sum(运输方量)", Filter)

        End If


SQLCompute("Sum(运输方量)", Filter) 提示错误，该怎么调整    [施工日期] = \'" & dr("施工日期") & " \'有没问题呢
--  作者：有点蓝
--  发布时间：2021/12/14 20:40:00
--  
1、有多余的空格，至于为什么是多余的，弹出最终条件查看msgbox(Filter)
filter = "[工程名称] = \'" & dr("工程名称") & " \' And 

2、内部表属于access，日期使用#：[施工日期] = #" & dr("施工日期") & "#
--  作者：张飞
--  发布时间：2021/12/14 21:26:00
--  
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
     Case "工程名称","分项工程","施工部位","施工日期","规格型号"
        If dr.IsNull("工程名称") OrElse dr.IsNull("分项工程") OrElse dr.IsNull("施工部位") OrElse dr.IsNull("施工日期")  Then
            dr("实耗量") = Nothing
        Else
            Dim filter As String
            filter = "[工程名称] = \'" & dr("工程名称") & "\' And [分项工程] = \'" & dr("分项工程") & "\' And [施工部位] = \'" & dr("施工部位") & "\' And [施工日期] = #" & dr("施工日期") & "# And [强度等级] = \'" & dr("规格型号") & "\' And [出场拌合站] = \'" & dr("出场拌合站") & "\'"
            dr("实耗量")  = DataTables("混凝土出场台账").SQLCompute("Sum(运输方量)", Filter)
        End If
   End Select

直接卡死了

[此贴子已经被作者于2021/12/14 21:26:15编辑过]
--  作者：张飞
--  发布时间：2021/12/14 21:29:00
--  
可以了，谢谢