以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多选目录树条件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161586)
--  作者：seal51
--  发布时间：2021/3/23 15:22:00
--  多选目录树条件
有个多选目录树，代码如下，在这个代码里如何加个筛选条件
Tables("导入排产产品_排产明细表").Filter ="已下单 = false"
加在哪个地方呢？

e.Form.Controls("TreeView1").BuildTree("排产明细表", "排产单号|产品名称|产品图号")

Dim nms As String() = {"排产单号","产品名称","产品图号"} \'指定生成目录树的各列 
Dim qts As String() = {"\'","\'","\'"} \'指定将各列的值括起来的符号,这里都是字符型,所以都是单引号 
Dim trv As WinForm.TreeView = e.Sender 
Dim flt As String 
Dim nd As WinForm.TreeNode 
For Each nd In e.node.allNodes \'清除子节点的选中标记 
    nd.Checked = False 
Next 
nd = e.Node.ParentNode 
Do While nd IsNot Nothing \'清除父节点的选中标记 
    nd.Checked = False 
    nd = nd.ParentNode 
Loop 
For Each nd In trv.AllNodes 
    If nd.Checked  Then 
        Dim rts() As String = nd.FullPath.Split("\\") 
        Dim val As String = ""
        For i As Integer = 0 To rts.length - 1
            If val > "" Then
                val = val & " And "
            End If
            val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)
        Next
        If flt > "" Then
            flt = flt & " Or (" & val & ")"
        Else
            flt = val
        End If
    End If
Next
Tables("导入排产产品_排产明细表").Filter  = flt
--  作者：有点蓝
--  发布时间：2021/3/23 15:27:00
--  
……
Next
if flt > "" then
flt = "(" & flt & ") and "
end if
flt = flt & “ 已下单 = false”
Tables("导入排产产品_排产明细表").Filter  = flt
--  作者：seal51
--  发布时间：2021/3/23 15:36:00
--  
谢谢！
e.Form.Controls("TreeView1").BuildTree("排产明细表", "排产单号|产品名称|产品图号")
这个里面也要加吧，如何加？
--  作者：有点蓝
--  发布时间：2021/3/23 15:41:00
--  

语法：

BuildTree(DataTableName, Columns, Filter, Sort)

或

BuildTree(DataTable, Columns, Filter, Sort)

DataTableName：数据表名
DataTable：数据表
Columns:指定数据列，不同的列之间用符号“|”隔开，例如：产品|客户|雇员”
Filter:可选参数，指定过滤条件，请参考表达式的运算符和函数 和 条件表达式
Sort:可选参数，设置排序，默认根据ColumnName参数指定的列排序
--  作者：seal51
--  发布时间：2021/3/23 15:59:00
--  
谢谢！ 那就这样写：
e.Form.Controls("TreeView1").BuildTree("排产明细表", "排产单号|产品名称|产品图号"，"已下单 = false")
试一试
--  作者：seal51
--  发布时间：2021/3/23 16:11:00
--  
以下是引用有点蓝在2021/3/23 15:27:00的发言：
……
Next
if flt > "" then
flt = "(" & flt & ") and "
end if
flt = flt & “ 已下单 = false”
Tables("导入排产产品_排产明细表").Filter  = flt


这个代码加到倒数第一个NEXT 后还是第二个NEXT 后面呢？
--  作者：有点蓝
--  发布时间：2021/3/23 16:18:00
--  
Tables("导入排产产品_排产明细表").Filter  = flt这句前面