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

 

 你可以在订单明细的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

9楼的错误提示信息我现在怎么又捕捉不到了,不知我当时的这个日期是怎么输入2011-22-052这样错误的日期的了