主题：[求助]关于筛选的问题！ A表筛选根据B表来筛选的~~~~【例子已上传，商业版的】

发文件，可能无需筛选，既然A、B表关联，利用代码选择A表符合条件的行，B表显示的就是相同工号的行（子表关联行）

按理表A无需筛选：

Select Case e.Node.Level
    Case 1

       If e.node.text <> "回聘" Then
           Tables("表A").Position  = Tables("表A").FindRow("[工号] = '" & e.node.text  &"'")

       End if

End Select

 

如果表A确需筛选：

Select Case e.Node.Level
    Case 1

        If e.node.text <> "回聘" Then
            Tables("表A").Filter= "[工号] = '" & e.node.text &"'"

            Tables("表A").Position ＝ 0

        End if

End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

去掉判断好一点，这样的话去掉勾的时候也重新筛选：

 

Dim filter As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked = True
        Filter =Filter & "|" & nd.text
    End If
Next
Filter = "*" &Filter.Replace("|","' or [工号] = '") & "'"
Filter =Filter.Replace("*' or","")
Tables("表A").Filter=Filter
Tables("表B").Filter=Filter

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

10和1的区别会不会导致筛选错误？