主题：跨表筛选目录树

此主题相关图片如下：微信图片_20220508155428.png


此主题相关图片如下：微信图片_202205081554281.png

 我想在 《报价管理系统》表中  录入设备类别时   能够在《基础设施系统》中筛选出设备类别和设备型号的目录树供选折

 

 

If  MainTable.Name = "报价管理系统"  Then
    Dim tb  As New DropTreeBuilder
    tb.SourceTable =  DataTables("基础设施管理系统") '指定目录树表
    tb.TreeCols = "设备总览表_设备名称|设备总览表_设备型号" '指定用于生成目录树的列
    tb.SourceCols =  "设备总览表_设备名称|设备总览表_设备型号"  '指定数据来源列
    tb.ReceiveCols =  "生产加工评估_设备型号"  '指定数据接收列
    Tables("报价管理系统").Cols("生产加工评估_设备型号").DropTree = tb.Build()
End  If

此主题相关图片如下：1.png


此主题相关图片如下：4.png

 

 

为什么调试的时候有时候好使有时候不好使

我想显示的是设备型号  不是设备名称

没看懂   我把管道符号添加了  但是没好使 

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

点击浏览该文件:管理项目1.table

If  MainTable.Name =  "订单管理系统"  Then
       Dim tb  As New DropTreeBuilder
    tb.SourceTable =  DataTables("样件制作管理系统"  )
    tb.TreeCols = "策划_客户名称|策划_产品名称|策划_图号" '指定用于生成目录树的列
    tb.SourceCols =  "策划_客户名称|策划_产品名称|策划_图号"  '指定数据来源列
    tb.ReceiveCols =  "客户名称|产品名称|产品图号"  '指定数据接收列
    Tables("订单管理系统").Cols("客户名称").DropTree = tb.Build

End  If

 

  如果我想增加一个判断  只筛选（样件制作管理系统）里面   研发成功 列为 ture  的列  怎么加呢

If  MainTable.Name =  "订单管理系统"  Then        Dim tb  As New DropTreeBuilder     tb.SourceTable =  DataTables("样件制作管理系统"  )     tb.TreeCols = "策划_客户名称|策划_产品名称|策划_图号" '指定用于生成目录树的列     tb.SourceCols =  "策划_客户名称|策划_产品名称|策划_图号"  '指定数据来源列     tb.ReceiveCols =  "客户名称|产品名称|产品图号"  '指定数据接收列     Tables("订单管理系统").Cols("客户名称").DropTree = tb.Build End  If     如果我想增加一个判断  只筛选（样件制作管理系统）里面   研发成功 列为 ture  的列  怎么加呢