- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 通过窗口实现下拉框目录树（三级）求大神帮忙看看哪地方出问题了？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67228)
-- 发布时间：2015/4/20 15:34:00
-- 通过窗口实现下拉框目录树（三级）求大神帮忙看看哪地方出问题了？
全程代码参照说明书的“自行设计下拉目录树”部分。
问题见下面的GIF动画：
此主题相关图片如下：jdfw.gif
TreeView(目录树)的NodeMouseClick事件代码：
If e.Node.Level = 2 Then \'如果单击的是第二层节点
Dim ps() As String = e.Node.FullPath.Split("\\")
Dim tr As Row = Tables("资产数据库").Current
Dim dr As DataRow = DataTables("资产分类配置").Find("大类 = \'" & ps(0) & "\' And 小类 = \'" & ps(1) & "\' And 类型 = \'" & ps(2) & "\'")
If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
tr("大类") = dr("资产分类_大类")
tr("小类") = dr("资产分类_小类")
tr("类型") = dr("资产分类_类型")
e.Form.DropDownBox.Value = tr("类型") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
End If
e.Form.DropDownBox.CloseDropdown() \'关闭下拉目录树
End If
例子：
谢谢大神指导！
[此贴子已经被作者于2015/4/20 15:58:33编辑过]
-- 发布时间：2015/4/20 15:35:00
--
出现什么问题?
-- 发布时间：2015/4/20 15:47:00
--
点到二级就自动关闭目录树了。。
-- 发布时间：2015/4/20 15:49:00
--
确切的说是点到二级就自动返回到一级 无法打开第三级的目录
-- 发布时间：2015/4/20 15:51:00
--
呵呵.不会的.上例子.
-- 发布时间：2015/4/20 15:55:00
--
GIF附件
此主题相关图片如下：jdfw.gif
-- 发布时间：2015/4/20 15:56:00
--
做个可运行的例子文件发上来.
-- 发布时间：2015/4/20 16:00:00
--
例子已经发到主贴
-- 发布时间：2015/4/20 16:03:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:资产信息管理系统.foxdb |
-- 发布时间：2015/4/20 16:06:00
--
我是看技术手册这么写的。。。