| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 老师，我明细有1月到3月的数据明细，目前3月份，我想根据成品编码，发货明细只汇总3月份的数据，请帮忙看看，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115658) |
| -- 作者：有点甜 -- 发布时间：2018/3/11 19:43:00 -- 1、分组统计参考
http://www.foxtable.com/webhelp/scr/0158.htm
2、日期条件的合成，参考
http://www.foxtable.com/webhelp/scr/2720.htm
|
| -- 作者：有点甜 -- 发布时间：2018/3/11 21:58:00 -- 比如代码
Dim y As Integer = Date.Today.Year
分别统计，如 http://www.foxtable.com/webhelp/scr/0681.htm
|
| -- 作者：有点甜 -- 发布时间：2018/3/11 22:23:00 -- 参考实例
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92219&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=22963&skin=0
|
| -- 作者：有点蓝 -- 发布时间：2018/3/12 21:46:00 -- 这个意思？ dr("销售发货") = dt.Compute("Count(成品编码)", "本月发货 >= \'" & dt1 & "\' and 本月发货 <= \'" & dt2 & "\'") |
| -- 作者：有点蓝 -- 发布时间：2018/3/12 22:14:00 -- If e.DataCol.Name = "成品编码" Then dr("本月发货") = dt.Compute("sum(出货数量)", "出库日期 >= \'" & dt1 & "\' and 出库日期 <= \'" & dt2 & "\' and 成品编码 = \'" & e.newvalue & "\'") End If
|
| -- 作者：客人 -- 发布时间：2018/3/12 22:51:00 -- 老师，红色字体的条件好像没有起作用耶，我销售发货的有100，正常发货的100，下面的做成总合计了为200，正确的应该是100，没有加上按照出库类型区分为条件耶 Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天 Dim Filter As String Filter = "出库日期 >= #" & dt1 & "# And 出库日期 <= #" & dt2 & "# and 出库类型 = \'销售发货\'" Tables("出库明细").Filter = Filter Dim dr As DataRow = e.DataRow Dim dt As DataTable =DataTables("出库明细") If e.DataCol.Name = "成品编码" Then dr("本月发货") = dt.Compute("sum(出库数量)", "出库日期 >= \'" & dt1 & "\' and 出库日期 <= \'" & dt2 & "\' and 成品编码 = \'" & e.newvalue & "\'") End If
|
| -- 作者：有点蓝 -- 发布时间：2018/3/12 23:10:00 -- dr("本月发货") = dt.Compute("sum(出库数量)", "出库日期 >= \'" & dt1 & "\' and 出库日期 <= \'" & dt2 & "\' and 成品编码 = \'" & e.newvalue & "\' and 出库类型 = \'销售发货\'") |