以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [原创]重命名树 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10412) |
||||
-- 作者:aloby -- 发布时间:2011/6/4 8:48:00 -- [原创]重命名树 狐爸: 重命名树是有例子的,没有问题. 我现在点击某节点,弹出一修改窗,其中也修改节点名,这时存不到树里,只能存到表里.请看一下: Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1") |
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/4 8:56:00 -- 树来自哪里? 是来自于一个文件吧,如果这样,再保存一下这个树就行啊: http://help.foxtable.com/topics/1974.htm
|
||||
-- 作者:aloby -- 发布时间:2011/6/4 8:57:00 -- 来自于表 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/4 9:04:00 -- 来自于表就保存在表即可啊。 你做个简单的例子传上来,否则我无法理解。 |
||||
-- 作者:aloby -- 发布时间:2011/6/4 9:04:00 -- 运行"定位树",双击某节点调出修改窗,修改节点后保存,保存不了.
|
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/4 9:30:00 -- 我写的代码: Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")
你之前的代码毫无逻辑可言,你不会保存是正常的,但是逻辑完全混乱,你看看你的代码:
Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")
第二行执行,nd是选定节点,你要改名的就是这个选定节点,你却绕这么大一个圈子找了一个完全不像干的节点td来改名。
编程是严谨的,建议你从头到尾,细看两次帮助,否则你花的时间更多。 不要以为有个完整的例子就能帮到你,因为没有一个例子能将所有基本知识、所有的可能性、所有的控件涵盖进去。
我从不认为编程是一个有很高技术含量的工作,只是一项蓝领工作而已,我一直觉得,基本原理通了,其他都是“小菜”而已。 我接触过大量的客户,基本上越想快速上手的人越上不了手,最终花的时间更多。 [此贴子已经被作者于2011-6-4 9:33:38编辑过]
|
||||
-- 作者:aloby -- 发布时间:2011/6/4 9:46:00 -- 你编的第三句我不太明白.另外,你的代码有点问题,请看修改前和修改后的情况.
此主题相关图片如下:capture2.bmp |
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/4 9:56:00 -- 不行,是因为手误,改一个字符就行了:
Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")
Split在编程基础讲述的,参考: http://help.foxtable.com/topics/1421.htm http://help.foxtable.com/topics/0245.htm
|
||||
-- 作者:aloby -- 发布时间:2011/6/4 10:23:00 -- 谢谢,可以了.但它的各级父节点不需要修改啊,所以我把你的代码改成为样了:
Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1") Tables("商品").Current.Save()
另外,如果我改的不是最低层的节点,而是中间层的,就出现表中节点不对的问题: 南京\\鼓楼1 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/4 10:26:00 -- 写个代码判断,只要vals.length等于node的level,就说明用户没有乱改。 |