主题：统计出现问题

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


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

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


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

cma = e.form.Controls("物料品号")

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

控件名,非绑定字段名

新手，，帮修改代码，谢谢、、

帮不了你.控件名只有你自己才知道.  你自己点击控件.看看控件名是什么就填写什么. 

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

点击浏览该文件:管理项目15.foxdb

'入仓数量统计
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("物料品号1")
    h.HGroups.AddDef("物料名称1")
    h.HGroups.AddDef("每箱PC数1")
    h.VGroups.AddDef("月份1", "{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