- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]bom路径打开 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171836)
-- 发布时间：2021/9/11 11:27:00
-- [求助]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
-- 发布时间：2021/9/11 11:39:00
--
Dim trv = e.Form.Controls("LayersTree1").basecontrol
msgbox(trv.Selectednode.fullpath)
-- 发布时间：2021/9/11 12:42:00
-- 回复：（有点蓝）Dim trv = e.Form.Controls("L...
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出来的路径不显示（数量）
-- 发布时间：2021/9/11 13:43:00
--
Dim trv = e.Form.Controls("LayersTree1").basecontrol
Dim p As String = "\\(\\w+(?=\\))\\)"
Dim str = System.Text.RegularExpressions.Regex.Replace(trv.Selectednode.fullpath, p ,"")
str = e.Form.Controls("ComboBox1").text & str
msgbox(str)
-- 发布时间：2021/9/11 17:03:00
-- 回复：（有点蓝）Dim trv = e.Form.Controls("L...
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)
-- 发布时间：2021/9/11 17:28:00
--
LayerTreeSetting的相关属性有：
LayerCol: 字符型，指定层级列
TextCol: 字符型，用指定名称列，也就是标题列。
ValueCol: 字符型，用于指定数量列。
Separator: 字符型，如果层级列是用符号分割的，可用此属性指定分割符号。
Lengths: 整数型数组，如果层级列是按长度分割的，用于此属性指定各级长度。
SortCol: 字符型，指定排序列
SortDesc: 逻辑型，是否降序排序
IncludeSub: 逻辑型，指定是否显示子目录数据，默认为True。
Subtotal: 逻辑型，是否自动汇总子目录数据。
GridTree: 逻辑性，指定是否自动开启折叠模式，默认为False。
ExpandTo: 整数型，指定折叠树默认展开级别，默认为0,也就是都不展开，如果设置为-1，则全部展开。
http://www.foxtable.com/webhelp/topics/3356.htm
-- 发布时间：2021/9/11 18:05:00
-- 回复：（有点蓝）LayerTreeSetting的相关属性有：Laye...
求助 数量，自动等于该盘符文件夹里面文档的数量值
比如，d:\\图库 这个文件夹里面有5张图片，数量列自动等于5
-- 发布时间：2021/9/12 20:16:00
--
到datacolchanged事件处理，获取文件数量参考：http://www.foxtable.com/webhelp/topics/0341.htm
msgbox(FileSys.GetFiles("d:\\图库").count)