主题：请教狐爸，三级目录树如何写

此主题相关图片如下：未标题-1.jpg

利用教程，学会了二级目录树的制作，但三级目录树不会，。如下图

烦请狐爸帮手改下如下代码，（区域/省份/客户名称）

If e.Node.Level = 1 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) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("区域") = dr("区域")
        tr("省份") = dr("省份")
        tr("客户名称") = dr("客户名称")
        tr("分销商") = dr("分销商")
        e.Form.DropDownBox.Value = tr("客户名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If

谢谢，

谢谢，我不会写，麻烦您在此上面的基础上修正一下，加个“省份”，发个代码给我，

万分感谢您

我的原代码如下（是二级目录），烦请问能否在此代码上改成三级目录呢

If e.Node.Level = 1 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) & "'")
    If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("区域") = dr("区域")
        tr("省份") = dr("省份")
        tr("客户名称") = dr("客户名称")
        tr("分销商") = dr("分销商")
        e.Form.DropDownBox.Value = tr("客户名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If

哈哈，谢谢狐爸爸，

直接复制过去，就成了！！！！！虽然不明白是咋回事，

哈哈，亲一口狐爸，，，，