以文本方式查看主题

-  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


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20150410110518.png
图片点击可在新窗口打开查看

我想按月份实时统计出销售情况,不知道问题在哪里,没实现。。。求解


--  作者:Bin
--  发布时间:2015/4/10 11:09:00
--  
代码看起来没问题,上个例子看看
--  作者:cyrollin
--  发布时间:2015/4/10 11:19:00
--  
上传了
--  作者:cyrollin
--  发布时间:2015/4/10 11:20:00
--  
上传了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



--  作者:Bin
--  发布时间:2015/4/10 11:37:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:cyrollin
--  发布时间:2015/4/10 12:00:00
--  
3Q