[5分]为什么在开发平台系统中这样的窗体删除不了所选记录？

Option Compare Database
Option Explicit  '强制声明变量

Dim objTree As TreeView
Private Sub Form_Load()

    Dim objNode As Node
    Dim Rst As DAO.Recordset
    Dim strCARGOTYPE_NO As String
    Dim MaxLevel As Integer
    Dim I As Integer

    Set objTree = Me.TreeView0.Object
    objTree.Nodes.Clear

    Set objNode = objTree.Nodes.add(, , "NO.1", "产品分类")    ' 头

    MaxLevel = CurrentDb.OpenRecordset("SELECT CARGOTYPE_LEVEL FROM 产品分类 order by CARGOTYPE_LEVEL desc;")(0).Value

    For I = 1 To MaxLevel

        Set Rst = CurrentDb.OpenRecordset("SELECT CARGOTYPE_LEVEL,CARGOTYPE_NO,CARGOTYPE_NAME FROM 产品分类 where  CARGOTYPE_LEVEL=" & I & ";")

        Do Until Rst.EOF

            If Rst!CARGOTYPE_LEVEL = 1 Then   '顶层菜单
                Set objNode = objTree.Nodes.add("NO.1", 4, "NO." & Trim(Rst!CARGOTYPE_NO), Trim(Rst!CARGOTYPE_NAME))
            Else
                Set objNode = objTree.Nodes.add("NO." & Left(Rst!CARGOTYPE_NO, (Rst!CARGOTYPE_LEVEL - 1) * perSectionLong), 4, "NO." & Trim(Rst!CARGOTYPE_NO), Trim(Rst!CARGOTYPE_NAME))
            End If
            Rst.MoveNext
        Loop
    Next

    Call TreeView0_NodeClick(objTree.Nodes(1))
    Me.subMX_CARGO.SetFocus

End Sub

Private Sub TreeView0_NodeClick(ByVal Node As Object)

    Dim strCARGOTYPE_NO As String
    Dim strSQL As String
    Dim I As Integer
    Dim N As Integer
    Dim strTip As String

    strCARGOTYPE_NO = Right(Node.Key, Len(Node.Key) - 3)
    '判断是否是顶层
    If strCARGOTYPE_NO = "1" Then  '预先定义好的:NO.1，第3位向后的字符，所以是1
        strSQL = "SELECT * FROM 产品档案表;"
        Me.lblTip.Caption = "产品分类"
    Else
        I = Len(strCARGOTYPE_NO)
        strSQL = "SELECT * FROM 产品档案表 WHERE left([CARGO_TYPE]," & I & ")='" & strCARGOTYPE_NO & "';"
        'Debug.Print I
        For N = 1 To I / perSectionLong
            strTip = strTip & Trim(CurrentDb.OpenRecordset("SELECT CARGOTYPE_NAME FROM 产品分类 where left([CARGOTYPE_NO]," _
                                                         & (N * perSectionLong) & ")='" & Left(strCARGOTYPE_NO, (N * perSectionLong)) & "' and CARGOTYPE_LEVEL=" & N & ";")(0).Value) & ">>"
        Next
        strTip = "产品分类" & ">>" & Left(strTip, Len(strTip) - 2)
        Me.lblTip.Caption = strTip
    End If
    'Debug.Print strSQL
    Me.subMX_CARGO.Form.RecordSource = strSQL

End Sub