[求助]多条件统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多条件统计

共有100人关注过本帖树形打印复制链接主题：[求助]多条件统计

苏州老街

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

[求助]多条件统计 发帖心情

Post By：2025/3/30 16:25:00 [显示全部帖子]

老师好，我想在“房屋主体”后面再加一个统计条件“单间名称”

If e.DataCol.name = "年" OrElse e.DataCol.name = "房屋主体" Then

If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("房屋主体") = False Then

Dim filter1 As String = "名称_房屋主体 = '" & e.DataRow("房屋主体") & "'"

For i As Integer = 1 To 12

Dim d As Date = new Date(val(e.DataRow("年")), i, 1)

Dim sum As Integer = DataTables("租房数据汇总").compute("sum(累计缴费)", filter1 & " and 抄表日期 >= #" & d & "# and 抄表日期 < #" & d.addmonths(1) & "#")

苏州老街

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 4:44:00 [显示全部帖子]

老师，这个统计条件“单间名称”要加到下面代码中吗？

If e.DataCol.name = "年" OrElse e.DataCol.name = "房屋主体" Then

If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("房屋主体") = False Then

Dim filter1 As String = "名称_房屋主体 = '" & e.DataRow("房屋主体") & "'"

苏州老街

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 13:55:00 [显示全部帖子]

老师，没有改好，标出的是原来的代码，没标出的代码该不好。

'If e.DataCol.name = "年" OrElse e.DataCol.name = "单间名称" Then

'If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("单间名称") = False Then

'Dim filter1 As String = "名称_单间名称 = '" & e.DataRow("单间名称") & "'"

If e.DataCol.name = "年" OrElse e.DataCol.name = "房屋主体" OrElse e.DataCol.name = "单间名称" Then

If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("房屋主体") AndAlso e.DataRow.Isnull("单间名称") = False Then

Dim filter1 As String = "名称_房屋主体 = '" & e.DataRow("房屋主体") And "名称_单间名称 = '" & e.DataRow("单间名称") & "'"

苏州老街

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 14:19:00 [显示全部帖子]

老师，是这个地方面

Dim filter1 As String = "名称_房屋主体 = '" & e.DataRow("房屋主体") And "名称_单间名称 = '" & e.DataRow("单间名称") & "'"

苏州老街

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 14:28:00 [显示全部帖子]

老师，去掉双引号报错

此主题相关图片如下：2025-03-17 12 19 54.png

苏州老街

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 14:50:00 [显示全部帖子]

老师，数据不统计了

If e.DataCol.name = "年" OrElse e.DataCol.name = "房屋主体" OrElse e.DataCol.name = "单间名称" Then

If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("房屋主体") AndAlso e.DataRow.Isnull("单间名称") = False Then

Dim filter1 As String = "名称_房屋主体 = '" & e.DataRow("房屋主体") & "' And 名称_单间名称 = '" & e.DataRow("单间名称") & "'"

For i As Integer = 1 To 12

Dim d As Date = new Date(val(e.DataRow("年")), i, 1)

Dim sum As Integer = DataTables("租房数据汇总").compute("sum(累计缴费)", filter1 & " and 名称_房屋主体='" & e.DataRow("房屋主体") & "' and 抄表日期 >= #" & d & "# and 抄表日期 < #" & d.addmonths(1) & "#")

e.DataRow("M" & i) = sum

Else

For i As Integer = 1 To 12

e.DataRow("M" & i) = Nothing

End If

苏州老街

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/3/31 15:55:00 [显示全部帖子]

老师，标出的改为上面的代码就可以统计。

If e.DataCol.name = "年" OrElse e.DataCol.name = "单间名称" Then

If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("单间名称") = False Then

'If e.DataCol.name = "年" OrElse e.DataCol.name = "房屋主体" OrElse e.DataCol.name = "单间名称" Then

'If e.DataRow.Isnull("年") = False AndAlso e.DataRow.Isnull("房屋主体") AndAlso e.DataRow.Isnull("单间名称") = False Then

苏州老街

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/4/1 6:19:00 [显示全部帖子]

老师，下面项目统计表还是不能条件。谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多条件统计.table

苏州老街

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：837 积分：5332 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2025/4/1 17:53:00 [显示全部帖子]

谢谢老师

下一主题 >> << 上一主题

主题：[求助]多条件统计