此主题相关图片如下：11.png


此主题相关图片如下：22.png


此主题相关图片如下：33.png

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d As Integer = Date.Today.day
Dim dd1 As New Date(y, m, 1)
Dim dd2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天

Dim Filter As String
Filter = "日期 >= #" & dd1 & "# And 日期 <= #" & dd2 & "#"

Dim bd1 As New GroupTableBuilder("生产统计表",DataTables("生产记录"))
Dim dt1 As fxDataSource
Bd1.Groups.AddDef("日期",DateGroupEnum.Year,"年")
Bd1.Groups.AddDef("日期","月")
bd1.Groups.AddDef("产品") \'根据型号分组
bd1.Totals.AddDef("数量") \'对数量进行统计
Bd1.Filter = Filter
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("零件用量"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("产品") \'根据型号分组
bd2.Totals.AddDef("用量") \'对数量进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("产品",dt2,"产品") \'将销售统计数据组合到进货统计数据
\'Dim nms As String() = {"年","月","产品"} \'指定连接列
\'dt1.Combine(nms,dt2,nms)
dt1.Show("生产统计表") \'显示统计结果

生产统计表有个尾巴不好看,加了月份又连接不上,怎么解决这个问题?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:物料需求计划.foxdb

你可以删除嘛，最后加上

DataTables("生产统计表").DeleteFor("年 is null")