A表有一列是工号列  唯一的  同一工号只有1行记录

B表与A表可以说是关联的  B表也有工号列 但是同一个工号可以有多行记录

现在 A表目录树 双击事件有段代码

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 1

If e.node.text <> "回聘"
                Tables("人事档案_人事档案Table1").Filter  = "???"

???的筛选条件其实为  在B表中筛选出有重复的工号  然后在A表中筛选出对应工号的记录 Tables("人事档案_人事档案Table1")即为A表

请问该怎么办？  思路是什么？

Dim r As Row=Tables("表A").Current

Dim Value() As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
    Case 1

If e.node.text <> "回聘" Then
    Tables("表B").Filter  = "工号 =\'" & r("工号") & "\'"

End if

这样试试

按理表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

此主题相关图片如下：1.jpg

以此项目为例   窗口里为A表  点击目录树中的【筛选】后  A筛选出B表中 工号有重复的行   B表中 工号1,8 有重复

A表中就筛选出1,8工号的记录

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

点击浏览该文件:管理项目1.rar

程版麻烦了

但是有些出入  我意思是目录树就一个【筛选】节点  点击后 A表就筛选出1,8    2行   

筛选条件是根据B表有重复的工号1,8

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

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

程版,你没有理解他的说法,我已经帮他搞定了