主题：目录树

这个没什么，我还没有做过菜单设计呢···    因为我没有任何基础，也不太会易表（更不会其菜单设计），只是玩狐表表间的部分代码或窗口中的，给数据搬搬‘家’方面有点长劲，。。。。  呵呵

我想问为什么要在目录树中做编辑呢？

 

这样比较复杂。

 

在表中编辑，再自动生成目录树不好吗？

'产品目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品") '指定目录树表
tb.TreeCols = "产品分类|型号|规格" '指定用于生成目录树的列
tb.ReceiveCols = "产品分类|型号|规格" '指定数据接收列
Tables("报价明细").Cols("产品分类").DropTree = tb.Build()

 

以上是报价明细的下拉目录树

生成的目录树能否根据_Identify排序?

不可以的，只能自己编码逐个添加节点，才可以实现。

希望目录树文件能用于目录树控件

问题1：25楼

问题2：窗口右击目录树控件创建的目录树如何保存？

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

点击浏览该文件:编辑目录树.table

两个都不是问题。

1、目录树文件本来就可以用于目录树控件：

http://help.foxtable.com/topics/1975.htm

 

2、你增加一个保存按钮，或者在菜单中加入一个保存命令不就行了吗？

http://help.foxtable.com/topics/1974.htm

 

还是不会,传个文件. 1 表A窗口目录树控件如何应用"产品目录"目录树文件; 2 表B窗口目录树控件有目录树编辑快捷菜单,如何保存. 另外,表的列属性中,对于采用目录树下拉列表, 不能禁止直接录入, 希望能禁止

 

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

点击浏览该文件:管理项目20.rar

1、窗口的AfterLoad事件

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Load(ProjectPath & "产品目录.foxtr")

 

2、快捷菜单中加个保存命令：

If Forms("材料").Opened Then
    Dim tr As WinForm.TreeView = Forms("窗口名").Controls("目录树控件名")
    tr.Save(ProjectPath & & "产品目录.foxtr")
End If

 

搞定,谢了.另外28楼关于目录树下拉列表的问题