主题：颜色标识行

drawcell事件

 

If e.Row.IsNull("型号") = False Then
    Dim fdr As DataRow = DataTables("表B").Find("型号 = '" & e.Row("型号") & "' and 规格 = '" & e.Row("规格") & "'")
    If fdr Is Nothing Then
        e.Table.DataTable.AddUserStyle("样式1", Color.red, color.black)
        e.style = "样式1"
    ElseIf fdr.Isnull("标准用料") Then
        e.Table.DataTable.AddUserStyle("样式2", Color.yellow, color.black)
        e.style = "样式2"
    End If
End If

If e.DataCol.Name ="型号" OrElse e.DataCol.Name ="规格" Then '数量发生变化
    '在B表找出该产品
    'Dim drs As List(Of DataRow) = DataTables("BOM").Select("产品代码 = " & "'" & e.DataRow("产品代码") & "'" ) '一对多查找
    Dim drs As List(Of DataRow) = DataTables("表B").Select("型号 = " & "'" & e.DataRow("型号") & "' And 规格 = " & "'" & e.DataRow("规格") & "'" ) '一对多查找
    Dim cnt As Integer = 0
    For Each dr As DataRow In drs
        If dr("标准用料") > 0
            cnt = cnt + 1
        End If
    Next
    e.DataRow("辅1") = (drs.Count = cnt)
End If

表B，DataColChanged事件

 

Select Case e.DataCol.name
    Case "型号","规格","标准用料"
       
        DataTables("表A").datacols("型号").RaiseDataColChanged("型号 = " & "'" & e.DataRow("型号") & "' And 规格 = " & "'" & e.DataRow("规格") & "'")
End Select

DataColChanged

 

If e.DataCol.Name ="型号" OrElse e.DataCol.Name ="规格" Then '数量发生变化
    '在B表找出该产品
    'Dim drs As List(Of DataRow) = DataTables("BOM").Select("产品代码 = " & "'" & e.DataRow("产品代码") & "'" ) '一对多查找
    Dim drs As List(Of DataRow) = DataTables("表B").Select("型号 = " & "'" & e.DataRow("型号") & "' And 规格 = " & "'" & e.DataRow("规格") & "'" ) '一对多查找
    Dim cnt As Integer = 0
    For Each dr As DataRow In drs
        If dr("标准用料") > 0
            cnt = cnt + 1
        End If
    Next
    e.DataRow("辅1") = (drs.Count = cnt AndAlso drs.count > 0 )
End If

 

贴出你DrawCell事件代码。

 

 

drawcell事件没问题，你说的变化很慢指什么？你数据量很大？

 

我测试你的例子没问题。

具体问题发上来测试。

 

贴出表B代码。

 代码没问题。实例发上来测试。

 例子测试，瞬间完成。