以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有重名的无法添加nd.Level节点,如何实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104365)

--  作者:fengliulin
--  发布时间:2017/7/27 23:17:00
--  有重名的无法添加nd.Level节点,如何实现
1.删除分类,通过帮助文件已经实现:判断商品信息包含分类,无法删除此分类。
2.通过帮助文件,我找不到什么方法判断添加分类,实现判断有重名的无法添加分类
3。删除分类的时候,有个提示框,提示是和否,点击是删除,点击否取消删除,怎么实现

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170727230800.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170727230903.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170727230726.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/7/27 23:26:04编辑过]

--  作者:有点甜
--  发布时间:2017/7/27 23:27:00
--  

AfterEditNode 事件

 

Dim pn = e.node.ParentNode
If pn Is Nothing Then pn = e.sender
For Each nd As object In pn.nodes
    If nd.text=e.NewText AndAlso nd.name <> e.node.name Then
        msgbox("节点重复")
        e.cancel = True
        Return
    End If
Next