主题：计划与实际引入数据

 查找到对应的行

Dim fdr As DataRow = e.DataTables.Find("指令单 = '" & e.DataRow("指令单") & "' and 类别 = '实际'")
If fdr IsNot Nothing Then
    fdr("第1序_加工日期编号") = e.DataRow("第1序_加工日期编号")
End If

Drawcell事件

If e.Row("类别") = "实际" Then
    If e.Col.name Like "*_配膳日" OrElse e.Col.name Like "*_开始日" OrElse e.Col.name Like "*_结束日" Then
        Dim fdr As DataRow = e.Table.DataTable.find("部品id = '" & e.Row("部品id") & "'")
        If fdr IsNot Nothing Then
            If e.Row(e.Col.name) > fdr(e.Col.name) Then
                e.style = "实际日期超过"
            End If
        End If
    End If
End If