主题：自动标记

If e.DataCol.Name = "生产状况" Then
    If e.NewValue = "已完成" Then
        Dim fdr As DataRow = e.DataTable.Find("任务单编号 = '" & e.DataRow("任务单编号") & "' and _Identify > " & e.DataRow("_Identify"))
        If fdr IsNot Nothing Then
            fdr("生产状况") = "待加工"
        End If
    End If
End If