删除树结点求助

coolleaf

高手帮忙看下在删除选定树结点中加入删除前判定删除的节点是否为最后一层功能，函数应该怎么改。
Public Function delTYPE() '删除代码

    Dim strtypeno As String
  
   
   strtypeno = Forms("材料分类")!TreeView0.SelectedItem.Key
   
   If strtypeno = "NO.1" Then
        MsgBox "不能删除顶层节点!", vbQuestion, "材料分类管理"
       Exit Function
   End If
   
   Forms("材料分类")!TreeView0.Nodes.Remove (strtypeno)
    strtypeno = Right(strtypeno, Len(strtypeno) - 3)
   Debug.Print strtypeno


   CurrentDb.Execute "delete from 材料分类 where typeno='" & strtypeno & "';"
   
   
   DoCmd.RunSQL "DELETE * FROM 材料表 where type = ('" & strtypeno & "')"

        If err.Number Then Exit Function    '保证数据库更新成功

End Function