以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何加筛选条件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=47385)
--  作者：seal51
--  发布时间：2014/3/9 16:35:00
--  如何加筛选条件

见下段目录树代码：

 

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("订单主表").Filter = ""
        Else
            Tables("订单主表").Filter = "[客户编号] = \'" & Value(0) & "\'"
        End If
    Case 1
        Tables("订单主表").Filter = "[客户编号] = \'" & Value(0) & "\' And [工作号] = \'" & Value(1) & "\'"
End Select

 

如何加入一个“未付金额大于0”这个条件， 也就是说只显示未付金额的工作号
--  作者：lsy
--  发布时间：2014/3/9 18:14:00
--  

这个在目录树生成的时候，加上筛选条件："未付金额 > 0"

在目录树单击节点代码中，就省事了。
--  作者：有点酸
--  发布时间：2014/3/9 23:00:00
--  

那就加上嘛：

 

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 0
        If e.Node.Text = "显示所有行" Then
            Tables("订单主表").Filter = "未付金额 > 0"
        Else
            Tables("订单主表").Filter = "[客户编号] = \'" & Value(0) & "\' And 未付金额 > 0"
        End If
    Case 1
        Tables("订单主表").Filter = "[客户编号] = \'" & Value(0) & "\' And [工作号] = \'" & Value(1) & "\' And 未付金额 > 0"
End Select