Office中国论坛/Access中国论坛

标题: 删除树结点求助 [打印本页]

作者: coolleaf 时间: 2013-12-2 17:01
标题: 删除树结点求助
高手帮忙看下在删除选定树结点中加入删除前判定删除的节点是否为最后一层功能，函数应该怎么改。
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)