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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于目录树问题

共有10534人关注过本帖树形打印复制链接主题：关于目录树问题

wangliang

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

加好友

发短信

等级：婴狐帖子：59 积分：554 威望：0 精华：0 注册：2011/9/23 10:37:00

关于目录树问题 发帖心情

Post By：2012/2/10 14:27:00 [显示全部帖子]

有这么一个目录树窗口（当中包括厂区|部门|业务员|类型）四个结点，现在有个核算单位的下拉窗口，当类型不空时，核算单位=类型，当类型为空时，核算单位=厂区，以下的代码错在哪里

if e.node.level=3 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) &"' and 类型='"& ps(3) & "'")
If dr IsNot Nothing Then
tr("核算单位")=dr("类型")
Else tr("核算单位")=dr("厂区")
e.form.dropdownbox.value=tr("核算单位")
End If
e.form.dropdownbox.closedropdown()
End If