同一段代码，为什么只能统计出一部分数据呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

如题，现在只能统计出回款类的数据，不能统计出费用的数据，这是什么？

1、这是统计效果，费用类的数据没有统计出来

此主题相关图片如下：1.png

2、这是费用表，明明就有安徽的费用

此主题相关图片如下：2.png

3、这是代码：哪儿错了？

Select e.DataCol.Name

Case "分公司","期间_起始日","期间_截止日"

If e.DataRow.IsNull("分公司") = False AndAlso e.DataRow.IsNull("期间_起始日") = False AndAlso e.DataRow.IsNull("期间_截止日") = False Then

e.DataRow("回款_其它老") = DataTables("回款明细").Compute("sum(回款金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 收款方式 <> '承兑' and 年份 <> 2013 ")

e.DataRow("回款_其它新") = DataTables("回款明细").Compute("sum(回款金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 收款方式 <> '承兑' and 年份 = 2013 ")

e.DataRow("回款_承兑老") = DataTables("回款明细").Compute("sum(回款金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 收款方式 = '承兑' and 年份 <> 2013 ")

e.DataRow("回款_承兑新") = DataTables("回款明细").Compute("sum(回款金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 收款方式 = '承兑' and 年份 = 2013 ")

e.DataRow("费用_经理往来") = DataTables("费用").Compute("sum(支出金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 费用类型 = '经理往来'")

e.DataRow("费用_劳务费用") = DataTables("费用").Compute("sum(支出金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 费用类型 = '劳务费用'")

e.DataRow("费用_内部往来") = DataTables("费用").Compute("sum(支出金额)","分公司='" & e.DataRow("分公司") & "' and 日期 > #" & e.DataRow("期间_起始日") & "# and 日期 < #" & e.DataRow("期间_截止日") & "# and 费用类型 = '内部往来'")

e.DataRow("费用_累计已付款") = e.DataRow("费用_经理往来") + e.DataRow("费用_劳务费用") + e.DataRow("费用_内部往来")

e.DataRow("剩余可支配金额") = e.DataRow("回款_可支配总额") - e.DataRow("费用_累计已付款")

e.DataRow("备注") = Nothing

Else

e.DataRow("回款_其它老") = Nothing

e.DataRow("回款_其它新") = Nothing

e.DataRow("回款_承兑老") = Nothing

e.DataRow("回款_承兑新") = Nothing

e.DataRow("费用_经理往来") = Nothing

e.DataRow("费用_劳务费用") = Nothing

e.DataRow("费用_内部往来") = Nothing

e.DataRow("费用_累计已付款") = Nothing

e.DataRow("剩余可支配金额") = Nothing

e.DataRow("备注") = Nothing

End If

End Select

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/4 9:28:00 [只看该作者] 用户已被锁定

muhua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/5/4 9:48:00 [只看该作者] 用户已被锁定

主题：同一段代码，为什么只能统计出一部分数据呢？