主题：[求助] 目录树 部门值重复了

我按照教程，通过Node mouseclick 事件，按部门生成目录树， 但是不晓得怎么去除重复值，代码要怎么修。

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("部门") & "'"
        Case 1
            Filter = "[部门] = '" & dr("部门") & "' And [年份] = '" & dr("年份") & "'"
           End Select
End If
Dim s As String  = DataTables("考勤统计表").GetComboListString("部门")
output.show(s)
Tables("考勤统计表").Filter = Filter