以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 按月份统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66602) |
||||
-- 作者:cyrollin -- 发布时间:2015/4/10 11:07:00 -- 按月份统计 If e.DataCol.Name = "年份" Then Dim cns() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"} If e.NewValue = Nothing Then For Each cn As String In cns e.DataRow(cn) = Nothing Next Else Dim filter = "[保洁员] Is null" For i As Integer = 0 To cns.Length - 1 Dim d As Date = new Date(Date.Today.Year, i+1, 1) e.DataRow(cns(i)) = DataTables("派工表").compute("sum(单价2)", filter & " and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#") Next End If End If 我想按月份实时统计出销售情况,不知道问题在哪里,没实现。。。求解
|
||||
-- 作者:Bin -- 发布时间:2015/4/10 11:09:00 -- 代码看起来没问题,上个例子看看 |
||||
-- 作者:cyrollin -- 发布时间:2015/4/10 11:19:00 -- 上传了 |
||||
-- 作者:cyrollin -- 发布时间:2015/4/10 11:20:00 -- 上传了 |
||||
-- 作者:Bin -- 发布时间:2015/4/10 11:37:00 -- .
|
||||
-- 作者:cyrollin -- 发布时间:2015/4/10 12:00:00 -- 3Q |