Foxtable(狐表)用户栏目专家坐堂 → 后台数据统计


  共有3284人关注过本帖树形打印复制链接

主题:后台数据统计

帅哥哟,离线,有人找我吗?
张飞
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:491 威望:0 精华:0 注册:2018/1/30 14:13:00
后台数据统计  发帖心情 Post By: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("施工日期") & " '有没问题呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/14 20:40:00 [只看该作者]

1、有多余的空格,至于为什么是多余的,弹出最终条件查看msgbox(Filter)
filter = "[工程名称] = '" & dr("工程名称") & " ' And 

2、内部表属于access,日期使用#:[施工日期] = #" & dr("施工日期") & "#

 回到顶部
帅哥哟,离线,有人找我吗?
张飞
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:491 威望:0 精华:0 注册:2018/1/30 14:13:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
张飞
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:491 威望:0 精华:0 注册:2018/1/30 14:13:00
  发帖心情 Post By:2021/12/14 21:29:00 [只看该作者]

可以了,谢谢

 回到顶部