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

第一个问题，在订单明细表的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

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