没有具体提示,就是系统认定,产品属性中都不符合条件,只能用迂回的办法实现。具体如下:DataTables("本期原料领用").DataRows.Clear
Dim f11 As New Filler
f11.Distinct = False
f11.SourceTable = DataTables("原料领用存档") '指定数据来源
f11.Filter = "领料日期 >=#" & firstday & "# And 领料日期 <= #" & lastday & "#"
'f1.Filter = "领料部门 <> '产品开发部'" ' 发料仓库 <> '包装物库'"
f11.SourceCols = "领料日期,领料部门,发料仓库,成本对象代码,物料长代码,物料名称,单位,实发数量,金额,成本对象,产品属性" '指定数据来源列
f11.DataTable = DataTables("本期原料领用") '指定数据接收表
f11.DataCols = "领料日期,领料部门,发料仓库,成本对象代码,物料长代码,物料名称,单位,实发数量,金额,成本对象,产品属性" '指定数据接收列
f11.Fill() '填充数据
DataTables("本期原料领用").DeleteFor("产品属性 = '自制半制品'")
DataTables("原材料成本计算表").DataRows.Clear
Dim f1 As New Filler
f1.Distinct = False
f1.SourceTable = DataTables("本期原料领用") '指定数据来源
' f1.Filter = "领料日期 >=#" & firstday & "# And 领料日期 <= #" & lastday & "# And 产品属性 > '自制半制品'"
'f1.Filter = "领料部门 <> '产品开发部'" ' 发料仓库 <> '包装物库'"
f1.SourceCols = "领料日期,领料部门,发料仓库,成本对象代码,物料长代码,物料名称,单位,实发数量,金额,成本对象" '指定数据来源列
f1.DataTable = DataTables("原材料成本计算表") '指定数据接收表
f1.DataCols = "所属期间,生产车间,发料部门,产品代码,物料长代码,原材料名称,单位,投入数量,投入金额,产品名称" '指定数据接收列
f1.Fill() '填充数据