主题：条件填充

实例中只做了当“标准用料”为空时出现标识行，我现在需要“材料分类”、“材料名称”、“型号规格”和“标准用料”任一列为空时，出现标识行

既然这样，为啥用表达式列啊，DrawCell事件改为：

 

Dim drs AS List(of DataRow)= e.Row.DataRow.GetChildRows("用料")
Dim nms() As String =  {"材料分类","材料名称","型号规格","标准用料"}
For Each dr AS DataRow In drs
    For Each nm As String In nms
        If dr.IsNull(nm) Then
            e.Style = "标识行"
            Exit For
        End If
    Next
Next

 

 

还有点问题：对应主表型号规格，用料表有2行或更多行，现在只有一行满足条件，应该是对应的多行都满足要求

用表达式列也无妨：

 

既然楼主用了：Count(Child(数量_用料).标准用料)>0

 

为何不全用上：Count(Child(数量_用料).标准用料)>0 and Count(Child(数量_用料).材料分类)>0 and Count(Child(数量_用料).材料名称)>0 and Count(Child(数量_用料).型号规格)>0

 

效果好像差不多····

 

还有点问题在13楼

12楼的代码，本来就是子表任意一行在指定的四列中出现空值，就标记。

 

OK。