以下汇总表的填充代码

dim f As New Filler
f.SourceTable = DataTables("用料") \' 数据来源表.
f.SourceCols = "材料名称，型号规格"  \' 数据来源列,不同的列用逗号分割.    这个条件 Tables("用料").Filter = "[计算用料] <> 0"  加在哪
f.DataTable = DataTables("汇总")\'   数据接收表.
f.DataCols = "材料名称，型号规格" \' 数据接收列,不同的列用逗号分割.
f.ExcludeExistValue = true \' 逻辑型,设为True,排除接收表中已经存在的内容.
f.ExcludeNullValue = true \'  逻辑型,设为True,排除空白值.
f.fill()

放在f.fill() 前面一行就可以了吧：

f.Filter = "[计算用料] <> 0" 

还有个表达式计算请指点一下

辅1(□)：Count(Child(数量_用料).标准用料)>0

除了“标准用料”>0，还补充条件：“产品分类”、“型号”和“规格”都不能为空。

是[辅1]列的计算表达式

[辅1]是辅助列（逻辑型）

表达式的聚合函数，不允许设置条件的。

我传上个实例吧

实例中要求：当[用料]表的“材料分类”、“材料名称”、“型号规格”和“标准用料”为空时，（关联字段不止一行）[数量]表（关联主表）对应行出现标识色。提示需要补充标准用料库数据

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

点击浏览该文件:管理项目7.table

没看懂你说的条件，关联列为空，子表就不会有关联行，子表关联行还标记啥啊？

[数量]表与[用料]表不是用[型号][规格]关联了吗，不是关联列为空。