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() '填充数据
请教这段代码中 f1.Filter = "领料日期 >=#" & firstday & "# And 领料日期 <= #" & lastday & "# And 产品属性 <> '自制半制品'" 中的 ”产品属性 <> '自制半制品'“ ，加上后，系统认为没有符合的字段，（实际是有的，怎样处理？）
加好友 
发短信
Post By：2020/6/22 22:17:00 [只看该作者]
