'入仓数量统计
If Forms("进出库统计").Opened Then
Dim f As New CrossTableBuilder("进库数量统计", DataTables("进库明细"))
f.HGroups.AddDef("物料品号")
f.HGroups.AddDef("物料名称")
f.HGroups.AddDef("每箱PC数")
f.VGroups.AddDef("月份", "{0}")
f.Totals.AddDef("进库_箱数", "进库_箱数")
f.Totals.AddDef("进库_数量", "进库_数量")
f.OrderByTotal = True
f.HorizontalTotal = True
f.Filter = "进库日期 Is Not Null"
f.Build()
End If
Tables("进出库统计_进库数量统计表").DataSource = DataTables("进库数量统计")
'设置月份的列宽
For Each c As Col In Tables("进出库统计_进库数量统计表").Cols
If c.DataCol.IsNumeric Then
c.Width = 50
End If
Next
Tables("进出库统计_进库数量统计表").AutoSizeCols() '设置自动列宽
'半成品分类下拉列表
Dim cma As WinForm.ComboBox
cma = e.form.Controls("物料品号")
cma.ComboList = DataTables("进库数量统计").GetComboListString("物料品号")
'出仓数量统计
If Forms("进出库统计").Opened Then
Dim h As New CrossTableBuilder("出库数量统计", DataTables("出库明细"))
h.HGroups.AddDef("物料品号")
h.HGroups.AddDef("物料名称")
h.HGroups.AddDef("每箱PC数")
h.VGroups.AddDef("月份", "{0}")
h.Totals.AddDef("出库_箱数", "出库_箱数")
h.Totals.AddDef("出库_数量", "出库_数量")
h.OrderByTotal = True
h.HorizontalTotal = True
h.Filter = "出库日期 Is Not Null"
h.Build()
End If
Tables("进出库统计_出库数量统计表").DataSource = DataTables("出库数量统计")
'设置月份的列宽
For Each c As Col In Tables("进出库统计_出库数量统计表").Cols
If c.DataCol.IsNumeric Then
c.Width = 50
End If
Next
Tables("进出库统计_出库数量统计表").AutoSizeCols() '设置自动列宽
'半成品分类下拉列表
Dim cmd As WinForm.ComboBox
cmd = e.form.Controls("物料品号1")
cmd.ComboList = DataTables("出库数量统计").GetComboListString("物料品号")
'删除数值为空的记录
DataTables("进库数量统计").DeleteFor("[合计] = 0" )
'DataTables("半成品入仓金额统计").DeleteFor("[合计] = 0" )
DataTables("出库数量统计").DeleteFor("[合计] = 0" )
'Tables("半成品统计_半成品出仓数量统计表").Cols(3).Visible = False
加好友 
发短信
Post By：2015/5/14 17:23:00 [只看该作者]
此主题相关图片如下：qq截图20150514172218.png
