填充器中的条件的设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 产品属性 <> '自制半制品'" 中的 ”产品属性 <> '自制半制品'“ ，加上后，系统认为没有符合的字段，（实际是有的，怎样处理？）

代码没有问题。具体提示信息发上来看看。

没有具体提示，就是系统认定，产品属性中都不符合条件，只能用迂回的办法实现。

具体如下：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() '填充数据

这个肯定是没有符合条件的数据，或者数据本身有问题，比如是null值，或者有空格等等

主题：填充器中的条件的设置问题