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

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

如果用是的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

不起眼，但是非常有用。