以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现目录树只显示,第2部分产品,材料不显示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159306)

--  作者:lin98
--  发布时间: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("产品材料明细", "产品类别|主类|次类","产品类别 <> \'材料\'")