- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 晕，一个需求竟然出现3个错误，有图有真相，MUHUA在不？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32571)
-- 发布时间：2013/5/4 11:00:00
-- 晕，一个需求竟然出现3个错误，有图有真相，MUHUA在不？
例子已经上传，其中《可用余额表》是在表中通过设定起始日与截止日，实现统计目的，《余额》表则是在窗口中希望能单击”确定“按钮，实现统一统计所有分公司”回款、费用、余额“的目的。
1、《可用余额》表错误："费用”统计不出来。
此主题相关图片如下：1.png
可费用有数据：
此主题相关图片如下：2.png
2、《 可用余额 》表的“可支配总额”不能通过代码计算，即：回款可支配总额=回款其它_老*0.25+回款其它_新*0.3+回款承兑_老*0.25*0.9 +回款承兑_新*0.3*0.9 ，如何用代码也能求出这种需求？
3、余额窗口的单击确定，错误提示，找不到filter列。（filter是筛选日期值）
此主题相关图片如下：error.png
此主题相关图片如下：error.png| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子.table |
-- 发布时间：2013/5/4 14:41:00
--
有大师在不？
-- 发布时间：2013/5/6 9:51:00
--
没有实现，你下载您的
-- 发布时间：2013/5/7 7:26:00
-- 回复：（muhua）怎么可能，你看清楚了没有。你的日期问...
谢谢您的指点，一个是我的费用类的日期确实有问题，二来原来的代码也不是尽人意，今天参考 了内部通讯的时间段统计方法，重做了，能实现了，再次谢谢大师无私指点！
把代码也贴出来，与小白一起学习。
Dim qs As Date = e.Form.Controls("DateTimePicker1").Value
Dim js As Date = e.Form.Controls("DateTimePicker2").Value
If qs = Nothing Or js = Nothing Then
MessageBox.Show("请输入需要查询的时间段!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
For Each r As Row In Tables("余额")
If r("分公司") IsNot Nothing Then
r("回款_其它老") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = \'" & r("分公司") & "\' and 收款方式 <> \'承兑\' and [日期] >= #" & qs & "# And [日期] <= #" & js & "# And 年份 <> 2013 ")
r("回款_其它新") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = \'" & r("分公司") & "\' and 收款方式 <> \'承兑\' and[日期] >= #" & qs & "# And [日期] <= #" & js & "# And 年份 = 2013 ")
r("回款_承兑老") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = \'" & r("分公司") & "\' and 收款方式 = \'承兑\' and[日期] >= #" & qs & "# And [日期] <= #" & js & "# And 年份 <> 2013 ")
r("回款_承兑新") = DataTables("回款明细").Compute("sum(回款金额)","分公司 = \'" & r("分公司") & "\' and 收款方式 = \'承兑\' and[日期] >= #" & qs & "# And [日期] <= #" & js & "# And 年份 = 2013 ")
r("费用_经理往来") = DataTables("费用").Compute("sum(支出金额)","分公司=\'" & r("分公司") & "\' and [日期] >= #" & qs & "# And [日期] <= #" & js & "# And 费用类型 = \'经理往来\'")
r("费用_劳务费用") = DataTables("费用").Compute("sum(支出金额)","分公司=\'" & r("分公司") & "\' and[日期] >= #" & qs & "# And [日期] <= #" & js & "# And 费用类型 = \'劳务费用\'")
r("费用_内部往来") = DataTables("费用").Compute("sum(支出金额)","分公司=\'" & r("分公司") & "\' and [日期] >= #" & qs & "# And [日期] <= #" & js & "# And 费用类型 = \'内部往来\'")
r("费用_累计已付款") = r("费用_经理往来") + r("费用_劳务费用") + r("费用_内部往来")
r("剩余可支配金额") = r("回款_可支配总额") - r("费用_累计已付款")
\'r("备注") = Nothing
Else
r("回款_其它老") = Nothing
r("回款_其它新") = Nothing
r("回款_承兑老") = Nothing
r("回款_承兑新") = Nothing
r("费用_经理往来") = Nothing
r("费用_劳务费用") = Nothing
r("费用_内部往来") = Nothing
r("费用_累计已付款") = Nothing
r("剩余可支配金额") = Nothing
r("备注") = Nothing
End If
Next