[求助]bom路径打开 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]bom路径打开

共有3744人关注过本帖树形打印复制链接主题：[求助]bom路径打开

miaoqingqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]bom路径打开 发帖心情

Post By：2021/9/11 11:27:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:当前行层级前加盘符的路径打开.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

miaoqingqing

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）Dim trv = e.Form.Controls("L... 发帖心情

Post By：2021/9/11 12:42:00 [显示全部帖子]

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出来的路径不显示（数量）

miaoqingqing

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）Dim trv = e.Form.Controls("L... 发帖心情

Post By：2021/9/11 17:03:00 [显示全部帖子]

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)

miaoqingqing

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）LayerTreeSetting的相关属性有：Laye... 发帖心情

Post By：2021/9/11 18:05:00 [显示全部帖子]

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

下一主题 >> << 上一主题

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