- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现目录树只显示，第2部分产品，材料不显示？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159306)
-- 发布时间：2020/12/21 23:49:00
-- 如何实现目录树只显示，第2部分产品，材料不显示？
如何实现目录树只显示，第2部分产品，材料不显示？
Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[产品类别] = \'" & dr("产品类别") & "\'"
Case 1
Filter = "[产品类别] = \'" & dr("产品类别") & "\' And [主类] = \'" & dr("主类") & "\'"
Case 2
Filter = "[产品类别] = \'" & dr("产品类别") & "\' And [主类] = \'" & dr("主类") & "\' And [次类] = \'" & dr("次类") & "\'"
End Select
End If
Tables("产品导入_产品材料明细").Filter = Filter
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("产品材料明细", "产品类别|主类|次类")
trv.Nodes.Insert("显示所有行",0)
-- 发布时间：2020/12/22 8:51:00
--
语法：
BuildTree(DataTableName, Columns, Filter, Sort)
或
BuildTree(DataTable, Columns, Filter, Sort)
| DataTableName： | 数据表名 |
| DataTable： | 数据表 |
| Columns: | 指定数据列，不同的列之间用符号“|”隔开，例如：产品|客户|雇员” |
| Filter: | 可选参数，指定过滤条件，请参考表达式的运算符和函数 和 条件表达式 |
| Sort: | 可选参数，设置排序，默认根据ColumnName参数指定的列排序 |
trv.BuildTree("产品材料明细", "产品类别|主类|次类","产品类别 <> \'材料\'")