[求助 ] 无法利用目录树快速录入数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助 ] 无法利用目录树快速录入数据

共有4768人关注过本帖树形打印复制链接主题：[求助 ] 无法利用目录树快速录入数据

hch

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：1170 威望：0 精华：0 注册：2012/9/12 15:30:00

[求助 ] 无法利用目录树快速录入数据 发帖心情

Post By：2015/4/16 21:29:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.table

请教一下，利用目录树快速录入数据。我在狐表中首先建立了一张“所学专业代码”表，想实现利用“所学专业代码”表建立一个目录树，快速在正常职工信息表中录入专业技术人员所学专业类别。

根据帮助文件中有关“目录树”使用章节的提示：设计了下拉窗口和录入窗口并套用代码，也在项目事件AfterOpenProject加入了代码，但在测试时发现无法使用自建的目录树录入数据，请费心看上传文件，问题出现在哪里？给予指出，谢谢！

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/16 21:36:00 [只看该作者]

下拉窗口是那个，怎么测试你说的问题？

hch

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：1170 威望：0 精华：0 注册：2012/9/12 15:30:00

Post By：2015/4/16 21:40:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试新.table

不好意思请看二次上传的文件名：“测试新”的文件。第一上传的文件错误。

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/4/16 21:51:00 [只看该作者]

你的帮助已经过时了，最好下载新版本，看自带的帮助文件。正确的代码是：
If e.Node.Level = 0 Then '如果是顶层节点

Return '则返回

End If

Dim Vals() As String = e.Node.FullPath.Split("\")

Dim dr As DataRow = e.node.DataRow

Dim r As Row = Tables("正式职工").Current

r("代码") = dr("代码")

r("代码一") = dr("代码一")

r("代码二") = dr("代码二")

e.Form.DropDownBox.CloseDropdown()

但是你的正式职工并没有代码、代码一、代码二这些列。

建议看看：

http://www.foxtable.com/help/topics/2690.htm

http://www.foxtable.com/help/topics/2350.htm

hch

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：110 积分：1170 威望：0 精华：0 注册：2012/9/12 15:30:00

Post By：2015/4/17 15:07:00 [只看该作者]

按照你给的代码修改后测试不行。看了你提供的帮助文件还是不很明白，我的本意是我在项目中有“正式职工表“和”所学专业代码”表，想利用”所学专业代码”表建立一个目录树，然后在“正式职工“表中实现录入每个人的”所学专业“信息时，在”所学专业信息“下有一个下拉组合框来选择该人员相对应的所学专业比如：临床医学、护理学、法学等专业类别。

上传的项目在打开”正式职工“表进行录入表中人员”所学专业“信息时，发现单击后有下拉新选项，但单击”某选项类别“后无法保存，这是怎么回事？不明白代码怎么写。