主题：如何加筛选条件

见下段目录树代码：

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”这个条件， 也就是说只显示未付金额的工作号