主题：颜色标识行

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

点击浏览该文件:辅1.foxdb

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

点击浏览该文件:辅1.foxdb

我的版本不够，能贴出代码吗？谢谢

增加了1个辅1列（数据列）在表A和表B的DataColChanged事件中设置了代码，但不成功。

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

表A和表B是没有建立关联的一对多任意子行没有计算用料都要标识，添加计算用料后自动去掉标识，就一个标识样式，不需要分标识1和标识2

增加了1个辅1列（数据列）在表A和表B的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)
End If

8楼代码还是没有满足需求。我的需求是这样的：

表B，DataColChanged事件

 

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