主题：可编辑的目录树下拉列表窗口

表A窗口1的[产品分类]列有一目录树下拉列表窗口,想双击自动输入[产品分类][型号][规格]该目录树控件双击代码如何写?

窗口2是目录树

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树下拉列表.foxdb

因为目录树文件是网络共享,所以没带,能只给出双击代码吗

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

帮助我看过,我的需求不一样,1 我的目录树来自文件,不是来自表; 2 我要在表中输入而不是在文本框中输入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树下拉列表.rar

附上目录树文件,希望有人帮忙

组合下面三节的知识就可以了：

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

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

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

附件就差NodeMouseClick事件,以下代码是基于表的,我用的是目录树文件,确实变通不出代码

5、TreeView(目录树)的NodeMouseClick事件代码设置为：

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 = 2  then

    Dim vals() As String = e.Node.FullPath.split("\")

    Dim tr As Row = Tables("表名").Current

    tr("列1") = vals(0)

    tr("列2") = vals(1)

    tr("列3") = vals(2)

End If