有关目录树窗口录入有关问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关目录树窗口录入有关问题

共有25047人关注过本帖树形打印复制链接主题：有关目录树窗口录入有关问题

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/19 16:58:00 [显示全部帖子]

你光改了TreeView事件里面的代码

在窗口的AfterLoad 事件里面也有代码。

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/20 12:41:00 [显示全部帖子]

以下是引用blny在2008-9-20 12:14:00的发言：

看到了3Q 还有一个问题是怎么样取值啊,,如 0202:高健只取0202 或高健这要怎么设置代码

理解就简单了
目录树 DoubleClick 事件原代码
If e.Node.Ic
    Forms("窗口1").Controls("txtName").Value = e.Node.Text
    Forms("窗口1").Controls("txtName").WriteValue()
    e.Form.Close()
End If

有颜色的那一句是取值的。
由于你把 Text 属性前面加上了编号，想办法把编号去掉就行了。
“0202:高健” 变成“高健” 看看帮助文件自己也能解决
e.Node.Text.Split(":") 得到一个数组。
取数组第2个值就行。

自己试试吧，仔细研究帮助文件基本功才踏实。

[此贴子已经被作者于2008-9-20 12:42:02编辑过]

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/20 12:45:00 [显示全部帖子]

发现论坛一个BUG
If e.Node.Ic0nFile = "员工.ico"
把上面的0改称o 发表出来就成下面的了。
If e.Node.Ic

害的我上面的帖子改了好几次都没成功

[此贴子已经被作者于2008-9-20 12:51:41编辑过]

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/20 14:17:00 [显示全部帖子]

If e.Node.Ic0nFile = "员工.ico"     '论坛BUG 记得复制的时候把0改成o
    Dim s() As String
    s = e.Node.Text.Split(":")
    Forms("窗口1").Controls("txtName").Value = s(1)
    Forms("窗口1").Controls("txtName").WriteValue()
    e.Form.Close()
End If

lxl

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

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/20 22:29:00 [显示全部帖子]

1.按钮加两行代码就能实现.
没调试,大概思路是:
SelectedNode.Nodes.Add.... SelectedNode.Expand

[此贴子已经被作者于2008-9-20 22:30:32编辑过]

下一主题 >> << 上一主题

主题：有关目录树窗口录入有关问题