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

此主题相关图片如下：未标题-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

这个是输入的代码 跟生成的代码浑身不搭界的 

楼主是已经生成了目录树，不会写双击输入的代码？

 

如果用是的foxtable内置的方法自动生成的目录树，那是相当简单的：

 

If e.Node.Level = 2 Then '如果单击的是第三层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("费用主表").Current
    Dim dr As DataRow = e.Node.DataRow

    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

 

注意这个属性：

http://www.foxtable.com/help/topics/2689.htm

 

不起眼，但是非常有用。

哈哈，谢谢狐爸爸，

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

 

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