有点甜老师：你好！
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转化成非自然月的日期？
加好友 
发短信
Post By：2018/5/28 14:42:00 [只看该作者]
