'上个月筛选
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
dt1 = dt1.Addmonths(-1)
y = dt1.Year
m = Dt1.Month
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取上个月的最后一天
Dim Filter As String
Filter = "操作日期 >= #" & dt1 & "# And 操作日期 <= #" & dt2 & "#"
Dim bd1 As New CrossTableBuilder("工人计件月统计表", DataTables("每日工作量完整")) '交叉统计
Dim data1 As fxDataSource
bd1.HGroups.AddDef("姓名")
bd1.VGroups.AddDef("操作日期", DateGroupEnum.Day, "{0}日")
bd1.Totals.AddDef("实际产量", "产量")
bd1.Filter = Filter '数据筛选
bd1.HorizontalTotal = True '水平合计
bd1.VerticalTotal = True '垂直合计
data1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表1", DataTables("每日工作量完整")) '组合统计
Dim data2 As fxDataSource
bd2.Groups.AddDef("姓名")
bd2.Totals.AddDef("计件工资", "工资")
bd2.Filter = Filter
bd2.VerticalTotal = True
data2 = bd2.BuildDataSource()
data1.Combine("姓名",data2,"姓名") '将工资数据组合到工人计件统计表
data1.Show("工人计件月统计表") '显示统计结果
MainTable = Tables("工人计件月统计表")
For Each c As Col In CurrentTable.Cols
c.Width = "60"
Next
加好友 
发短信
Post By：2021/11/2 18:15:00 [只看该作者]
