以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树加个条件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95454)
--  作者：seal51
--  发布时间：2017/1/20 9:44:00
--  目录树加个条件

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("执行人员") & "\'"
    End Select
End If
Tables("工作计划").Filter = Filter

 

如何加个执行人员下工作已结束=false的条件
--  作者：有点色
--  发布时间：2017/1/20 9:46:00
--  
Filter = "[执行人员] = \'" & dr("执行人员") & "\' and 工作已结束 = False"
--  作者：seal51
--  发布时间：2017/1/20 9:52:00
--  

谢谢， 那么最后一句如何也加上这个条件， 也就是说显示所有工作列表=工作已结束 = False
--  作者：有点色
--  发布时间：2017/1/20 9:55:00
--  
Tables("工作计划").Filter = "(" & Filter & ") and 工作已结束 = False"
--  作者：seal51
--  发布时间：2017/1/20 10:27:00
--  

非常感谢！
--  作者：seal51
--  发布时间：2021/1/25 10:10:00
--  

Dim Filter As String
Filter = "已完成 = false" 
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("采购明细表", "厂家名称",filter)
trv1.Nodes.Insert("显示所有行",0)

问题1， 双击显示所有行出现错误
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：
详细错误信息：
语法错误:“”运算符后缺少操作数。

问题2， 打开窗口后，目录树符合筛选已完成=false
但是表里的数据如何同时符合筛选已完成=false
--  作者：有点蓝
--  发布时间：2021/1/25 10:16:00
--  
目录树点击的代码发上来
--  作者：seal51
--  发布时间：2021/1/25 10:22:00
--  
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("厂家名称") & "\'and 已完成 = False"
    End Select
End If
Tables("采购明细表").Filter = "(" & Filter & ") and 已完成 = False"
--  作者：有点蓝
--  发布时间：2021/1/25 10:29:00
--  
不是吧，几年前的代码现在还看不懂？

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("厂家名称") & "\'and 已完成 = False"
    End Select
else
Filter = “已完成 = False"
End If
Tables("采购明细表").Filter = Filter