[5分] 平台上的进销存教学案例 已审核的采购订单不允许删除订单明细。但是却可以从 frm采购订单上的按钮，删除整个订单，这不合理，应该也不能删除已审核的订单主表数据。怎么修改？

Public Sub btnDelete_Click()
    On Error GoTo ErrorHandler
    Dim strMsg      As String
     Dim strStatus As String
    strStatus = Me.sfrList!审核状态
    Select Case strStatus
    Case "已审核"
        MsgBox "已审核订单不允许删除", vbCritical, "提示"
        Exit Sub
    Case "已完成"
        MsgBox "已完成订单不允许删除", vbCritical, "提示"
        Exit Sub
    End Select


    If Me.sfrList.Form.CurrentRecord < 1 Then


        Exit Sub
    End If
    Me.sfrList.SetFocus
     RunCommand acCmdSelectRecord
    strMsg = "确定要刪除吗？"
       If MsgBoxEx(strMsg, vbQuestion + vbOKCancel) = vbCancel Then
        Exit Sub
    End If
       
     DAORunSQL "DELETE FROM [采购订单表] WHERE [采购订单编号]=" & SQLText(Me.sfrList![采购订单编号])
     DAORunSQL "DELETE FROM [采购订单明细表] WHERE [采购订单编号]=" & SQLText(Me.sfrList![采购订单编号])
        
    Me.RefreshDataList
    Me.btnDelete.SetFocus


ExitHere:
    Exit Sub


ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnDelete_Click()"
    Resume ExitHere

End Sub

自己解决了