- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树新增节点定位的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84304)
-- 发布时间：2016/4/27 23:56:00
-- [求助]目录树新增节点定位的问题
看帮助做了个目录树，做了个按钮用来增加节点。然后窗口右侧一个TEXTBOX控件绑定了表中的第三列。
怎么样才能增加了新节点的同时，定位到这个新行。新行第三列应该是空白的。
-- 发布时间：2016/4/28 9:21:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.foxdb |
-- 发布时间：2016/4/28 9:41:00
--
谢谢大红袍老师
还有一个疑问，
此主题相关图片如下：qq截图20160428093851.png
此主题相关图片如下：qq截图20160428093851.png我点击增加，筛选树中增加一个节点，我把这个节点的名字改了一下，但并没有时时保存到表A中。表A中保存的还是新节点
并且我在第一列中已经设置了禁止重复。这样增加的节点，即使名字一样，也不会出提示。不像直接在表中增加行的时候，系统会提示我已经有重复的值了
[此贴子已经被作者于2016/4/28 9:43:59编辑过]
-- 发布时间：2016/4/28 9:43:00
--
AfterEditNode事件
Dim cr As Row = Tables("表A").Current
cr("第一列") = e.NewText
-- 发布时间：2016/4/28 9:47:00
--
我在第一列中已经设置了禁止重复。
通过点击增加按钮增加的节点，即使名字一样，也不会出提示。我保存了也不会有提示重复。而且重复的值也会保存到表里
不像直接在表中增加行的时候，系统会直接提示我已经有重复的值。
-- 发布时间：2016/4/28 9:53:00
--
Dim cr As Row = Tables("表A").Current
Dim fdr As DataRow = DataTables("表A").find("第一列 = \'" & e.NewText & "\' and _Identify <> " & cr("_Identify"))
If fdr Is Nothing Then
cr("第一列") = e.NewText
Else
msgbox("已存在")
e.Sender.BeginEdit
End If