[5分]这个删除可以删所有状态的订单,出入库管理那里也是,需要在代码里对已审核的单不能删除

Public Sub btnDelete_Click()
    On Error GoTo ErrorHandler
    Dim strMsg        As String
    Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    Dim rstTmp        As Object 'DAO.Recordset

    If Me.sfrList.Form.CurrentRecord < 1 Then
        Exit Sub
    End If

    Me.sfrList.SetFocus
    RunCommand acCmdSelectRecord
    '--------------------------------------------------
    Set rst = OpenADORecordset(strSQL, , cnn)
    Set rstTmp = CurrentDb.OpenRecordset("TMP_库存流水明细表")
    If rst!状态 = "已审核" Then
            Exit Sub
    End If
    '--------------------------------------------------
    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
这样加了,不对,求教