- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树管理延伸 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64056)
-- 发布时间：2015/2/4 10:38:00
-- 目录树管理延伸
我采用的是目录树文件来做为表A的数据输出，但目录树有时候要修改编辑的时候，我想能在表A里的相应数据都能得到更正。请老师指导！
此主题相关图片如下：截图00.png
-- 发布时间：2015/2/4 10:40:00
--
参考 http://www.foxtable.com/help/topics/2474.htm
[此贴子已经被作者于2015-2-4 10:46:22编辑过]
-- 发布时间：2015/2/4 10:42:00
--
网页无法打开。。。
-- 发布时间：2015/2/4 10:46:00
--
http://www.foxtable.com/help/topics/2474.htm
-- 发布时间：2015/2/4 11:00:00
--
甜甜老师，你给的这个例子的目录树是根据表的内容生成，所以改变目录树之后，表的内容也会相应改变
但我的例子是先有目录树文件，然后根据需要从目录树里来挑选相应的数据填到表里。
本身项目里这个目录树就是原材料的基础结构树。有些名称叫法可能原来输入的不规范需要修改，我想在修改目录树之后已经存在于表里面的相应数据都能得到更正。
-- 发布时间：2015/2/4 11:34:00
--
AfterEditNode事件。
Dim ary() As String = e.Node.FullName.Split("\\")
Select Case e.Node.Level
Case 0
DataTables("表A").ReplaceFor("第一列", e.NewText, "第一列 = \'" & ary(0) & "\'")
Case 1
DataTables("表A").ReplaceFor("第二列", e.NewText, "第一列 = \'" & ary(0) & "\' and 第二列 = \'" & ary(1) & "\'")
Case 2
DataTables("表A").ReplaceFor("第三列", e.NewText, "第一列 = \'" & ary(0) & "\' and 第二列 = \'" & ary(1) & "\' and 第三列 = \'" & ary(2) & "\'")
End Select
e.Node.Name = e.NewText