| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 填充器中的条件的设置问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151414) |
| -- 作者：13861676007 -- 发布时间：2020/6/22 22:17:00 -- 填充器中的条件的设置问题 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 产品属性 <> \'自制半制品\'" 中的 ”产品属性 <> \'自制半制品\'“ ，加上后，系统认为没有符合的字段，（实际是有的，怎样处理？）
|
| -- 作者：有点蓝 -- 发布时间：2020/6/22 22:30:00 -- 代码没有问题。具体提示信息发上来看看。 |
| -- 作者：13861676007 -- 发布时间：2020/6/22 22:58:00 -- 没有具体提示，就是系统认定，产品属性中都不符合条件，只能用迂回的办法实现。 具体如下：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() \'填充数据
|
| -- 作者：有点蓝 -- 发布时间：2020/6/22 23:21:00 -- 这个肯定是没有符合条件的数据，或者数据本身有问题，比如是null值，或者有空格等等 |