主题：狐爸请看系统日期错误和代码求助

第一个问题，在订单明细表的DataColChanged事件加入代码：

If e.DataCol.Name = "核销标记" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单")
    If pr IsNot Nothing Then
        Dim drs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer
        For Each dr As DataRow In drs
            If dr("核销标记") = True Then
                cnt = cnt +1
            End If
        Next
        If cnt = drs.Count  Then
            pr("状态") = "全部已核销"
        ElseIf cnt = 0 Then
            pr("状态") = "全部未核销"
        Else
            pr("状态") = "部分以核销"
        End If
    End If
End If

第二个问题我这边正常，请执行杂项功能区工具菜单的版本检测命名，将检测结果抓图贴上来看看。

将订单明细表的DataRowAdded事件代码设置为：

Dim pr As DataRow = e.DataRow.GetParentRow("订单")
If pr IsNot Nothing Then
   If pr("状态") = "全部已核销"
      pr("状态") = "部分已核销"
   End If
End If

第二个问题我测试正常，将错误提示详细信息按钮中的内容复制到一个文本文件，压缩后发上来我看看。

 你可以在订单明细的DataRowDeleting设置代码：

Dim pr As DataRow = e.DataRow.GetParentRow("订单")
If pr IsNot Nothing Then
    Dim drs As List(of DataRow) = pr.GetChildRows("订单明细")
    Dim cnt As Integer
    For Each dr As DataRow In drs
        If dr("核销标记") = True And dr("_Identify") <> e.DataRow("_Identify") Then
            cnt = cnt +1
        End If
    Next
   If cnt = drs.Count - 1  Then
        pr("状态") = "全部已核销"
    ElseIf cnt = 0 Then
        pr("状态") = "全部未核销"
    Else
        pr("状态") = "部分已核销"
    End If
End If