专家坐堂-[求助]:出错:已添加了具有相同键的项Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'上个月筛选

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"

下载信息 [文件大小：下载次数： ]
点击浏览该文件:计件统计.table