主题：目录树录入

下表的目录树录入代码怎么写(示例窗口1)
产品代码 产品分类 型号 规格

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

点击浏览该文件:代码目录树.zip

此主题相关图片如下：snap1.jpg

直接写

 

Dim cb As New DropTreeBuilder

cb.SourceTable = DataTables("表A") '指定目录树表
cb.TreeCols = "分类代码|产品分类|型号|规格" '指定用于生成目录树的列
cb.SourceCols = "分类代码|产品分类|型号|规格" '指定数据来源列
cb.ReceiveCols = "产品代码|产品分类|型号|规格" '指定数据接收列
cb.TreeWidth = 200
CB.TreeHeight = 800
Tables("表B").Cols("产品代码").DropTree = cb.Build()

如果要特殊，就自己做下拉窗口

 

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

 

我的目录树有些特殊,与4楼的例子不同类

目录树文件在示例中

 无法直接取出来，要自己做下拉窗口处理。

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

点击浏览该文件:代码目录树.foxdb

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

点击浏览该文件:代码目录树2.zip

加了下拉窗口,单击节点代码不会写

看6楼。

呵,我还没时间升级,打不开,贴出代码好吗

 

 

If e.node.Level = 2 Then
    Dim r As Row = Tables("表B").current
    Dim ary As String() = e.node.FullPath.split("\")
    r("产品代码") = ary(2).Split(" ")(0)
    r("规格") = ary(2).Split(" ")(1)
    r("型号") = ary(1).Split(" ")(1)
    r("产品分类") = ary(0).Split(" ")(1)
    e.Form.DropDownBox.value = ary(2).Split(" ")(0)
    e.Form.DropDownBox.CloseDropdown
End If