- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 快捷录入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66726)
-- 发布时间：2015/4/12 22:03:00
-- 快捷录入的问题
各位老师，我想通过目录树把值写入某列，我找不设置的地方，还是得通通过代码吗？
截图1中的我的会实现，但截图2中的在窗口怎么利用目录树输入我不会，请老师指教
此主题相关图片如下：qq截图20150412215634.png
此主题相关图片如下：qq截图20150412215842.png
此主题相关图片如下：qq截图20150412215634.png此主题相关图片如下：qq截图20150412215842.png-- 发布时间：2015/4/13 8:50:00
--
参考帮助 http://www.foxtable.com/help/topics/2350.htm
重点在里面的 第五点
-- 发布时间：2015/4/13 9:22:00
--
bin老师，关键问题是我的目录树不是生成的，而是我做好的目录树文件
-- 发布时间：2015/4/13 9:27:00
--
同样也可以利用类似的方法的 知识点http://www.foxtable.com/help/topics/0917.htm
搞不定就上例子
-- 发布时间：2015/4/13 9:34:00
--
NodeMouseClick事件，大概这样：
if e.node.level = 0 then \'一级节点
e.Form.DropDownBox.Value = e.node.text
elseif e.node.level = 1 then \'二级节点
dim v() as string = e.node.Fullpath.Split("\\")
e.Form.DropDownBox.Value = V(0)
e.Form.Contrls("县输入框名称") = v(1)
endif
参考：
http://www.foxtable.com/help/topics/0906.htm
http://www.foxtable.com/help/topics/1421.htm
[此贴子已经被作者于2015/4/13 9:35:35编辑过]
-- 发布时间：2015/4/13 10:02:00
--
你这个是绑定到列，上面的代码可能不行，因为：
http://www.foxtable.com/help/topics/2436.htm
代码要改一下：
Dim r as Row = Tables("表名").Current
if e.node.level = 0 then \'一级节点
e.Form.DropDownBox.Value = e.node.text
r("省") = e.node.text
elseif e.node.level = 1 then \'二级节点
dim v() as string = e.node.Fullpath.Split("\\")
e.Form.DropDownBox.Value = V(0)
r("省") = v(0)
r("县") = v(1)
endif