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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树取值的问题

共有1626人关注过本帖树形打印复制链接主题：[求助]目录树取值的问题

pladic

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

加好友

发短信

等级：童狐帖子：225 积分：2015 威望：0 精华：0 注册：2015/12/23 11:59:00

[求助]目录树取值的问题 发帖心情

Post By：2016/12/20 15:03:00 [显示全部帖子]

某列属性设置为目录树列表，共有3级。

如果三个级别都有内容，用鼠标点击第3层节点，可以顺利分别为三列赋值；

但如果二级或三级内容为空，用鼠标点击第1层或第2层节点，则不能为对应的三列赋值。

pladic

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

加好友

发短信

等级：童狐帖子：225 积分：2015 威望：0 精华：0 注册：2015/12/23 11:59:00

回复：（有点色）你可以单独做一个下拉目录树。... 发帖心情

Post By：2016/12/20 16:13:00 [显示全部帖子]

因为在这个表的其它列中已经用了2个自行设计的目录树，所以本想直接用列属性完成。

如果这种方式不支持只给一、二级列赋值，那只好另想办法了。

pladic

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

加好友

发短信

等级：童狐帖子：225 积分：2015 威望：0 精华：0 注册：2015/12/23 11:59:00

回复：（有点色）你可以单独做一个下拉目录树。... 发帖心情

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

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("客户").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    tr("省市") = dr("省市")
    tr("县市") = dr("县市")
    tr("区号") = dr("区号")
    tr("邮编") = dr("邮编")
    e.Form.DropDownBox.Value = tr("县市") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
|    e.Form.DropDownBox.CloseDropdown()
End If

再加两个判断节点层级的语句吗？

If e.Node.Level = 0 Then

If e.Node.Level = 2 Then

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

主题：[求助]目录树取值的问题