- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 统计出现问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68317)
-- 发布时间：2015/5/14 17:23:00
-- 统计出现问题
进库统计和出库统计的时候，进库统计完成了，出库统计完不成，找不到“物料品号”控件
-- 发布时间：2015/5/14 17:24:00
--
控件? 按道理和控件无关
具体的问题,请把例子发上来
-- 发布时间：2015/5/14 17:24:00
--
此主题相关图片如下：qq截图20150514172218.png
此主题相关图片如下：qq截图20150514172231.png
-- 发布时间：2015/5/14 17:25:00
--
\'入仓数量统计
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
-- 发布时间：2015/5/14 17:28:00
--
文件上传不了
-- 发布时间：2015/5/14 17:29:00
--
你有对应的控件吗？
Dim cmd As WinForm.ComboBox
cmd = e.form.Controls("物料品号")
和
Dim cmd As WinForm.ComboBox
cmd = e.form.Controls("物料品号1")
-- 发布时间：2015/5/14 17:32:00
--
此主题相关图片如下：qq截图20150514173131.png
-- 发布时间：2015/5/14 17:34:00
--
进库的数据统计完成的，现在是不是进库和出库里面的列名一样造成的出库无法统计
-- 发布时间：2015/5/14 17:40:00
--
下面两段代码多余
\'半成品分类下拉列表
Dim cma As WinForm.ComboBox
cma = e.form.Controls("物料品号")
cma.ComboList = DataTables("进库数量统计").GetComboListString("物料品号")
\'半成品分类下拉列表
Dim cmd As WinForm.ComboBox
cmd = e.form.Controls("物料品号1")
cmd.ComboList = DataTables("出库数量统计").GetComboListString("物料品号")
-- 发布时间：2015/5/14 19:59:00
--
额，按钮还没有装上去，晕，u盘没带回家，明天试试
谢谢！