 加好友  发短信
等级：超级版主
帖子：111388
积分：567004
威望：0
精华：9
注册：2015/6/24 9:21:00
|
 Post By：2018/11/9 23:15:00 [显示全部帖子]
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 & "#"Dim g As New GroupTableBuilder("统计表1", DataTables("产量")) g.Groups.AddDef("操作台") g.Totals.AddDef("实际产量") g.filter = Filter g.Build() MainTable = Tables("统计表1")
|
|
