主题：[求助]bom路径打开

 

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

点击浏览该文件:当前行层级前加盘符的路径打开.foxdb

双击打开层级树 当前选择的 盘符+层级树的路径,例如：
D:\P01
D:\P01\M01
D:\P01\M01\E01
D:\P01\M01\E02
D:\P01\M02
D:\P01\M02\E03
D:\P01\M02\E06

 Dim trv  = e.Form.Controls("LayersTree1").basecontrol
Dim pf  = e.Form.Controls("ComboBox1").text  'ComboBox1是当前行的 盘符值

Dim dr As String = pf & trv

msgbox(dr.Selectednode.fullpath)

上面代码报错
求助，增加盘符列只在前面。
求助，目录树有(数量），nsgbox出来的路径不显示（数量）

 st.ValueCol = "数量"
同一级目录树，数量能否按升序排？

Dim trv As WinForm.LayersTree = e.Form.Controls("LayersTree1")
Dim st As New LayerTreeSetting
st.PathCol = "级码"
st.TextCol = "物料"
st.ValueCol = "数量"
st.Separator = "."
st.GridTree = True
trv.BuildBomTree(Tables("物料清单B"),st)

LayerTreeSetting的相关属性有：

LayerCol:    字符型，指定层级列
TextCol:     字符型，用指定名称列，也就是标题列。
ValueCol:    字符型，用于指定数量列。
Separator:   字符型，如果层级列是用符号分割的，可用此属性指定分割符号。
Lengths:     整数型数组，如果层级列是按长度分割的，用于此属性指定各级长度。
SortCol:     字符型，指定排序列
SortDesc:    逻辑型，是否降序排序
IncludeSub:  逻辑型，指定是否显示子目录数据，默认为True。
Subtotal:    逻辑型，是否自动汇总子目录数据。
GridTree:    逻辑性，指定是否自动开启折叠模式，默认为False。 
ExpandTo:    整数型，指定折叠树默认展开级别，默认为0,也就是都不展开，如果设置为-1，则全部展开。

http://www.foxtable.com/webhelp/topics/3356.htm

求助  数量，自动等于该盘符文件夹里面文档的数量值
比如，d:\图库  这个文件夹里面有5张图片，数量列自动等于5

到datacolchanged事件处理，获取文件数量参考：http://www.foxtable.com/webhelp/topics/0341.htm