以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口按钮的非自然月  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119601)
--  作者：zhangxl1964
--  发布时间：2018/5/28 14:42:00
--  窗口按钮的非自然月
有点甜老师：你好！

Dim QueryMonth As Date \'自定义日期
QueryMonth =F orms("物料日报表").Controls("起始日期").value
JQueryMonth=F orms("物料日报表").Controls("结束日期").value
Dim FirstDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,1) \'当月度第一天
Dim LastDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,Date.DaysInMonth(QueryMonth.Year,QueryMonth.Month)) \'当月度最后一天

        Dim bds7 As New SQLGroupTableBuilder("统计表1","入库明细")
        bds7.C
        Dim dts7 As DataTable
        bds7.Groups.AddDef("存货编码") \'根据型号分组
        bds7.Groups.AddDef("存货名称") \'根据型号分组
        bds7.Totals.AddDef("入库数量") \'对金额进行统计
        bds7.Filter = " 统计日期 >= \'" & FirstDay & "\' And 统计日期 <= \'" & SQueryMonth & "\'"  \'这里要求按非自然月的第一天到上一天时间段统计
        dts7 = bds7.Build(True) \'生成一个DataTable
怎样把QueryMonth转化成非自然月的日期？
--  作者：有点甜
--  发布时间：2018/5/28 15:32:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2962.htm