主题：双击目录树报错

nodemousedoubleclick事件代码：

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("部门") & "'"
          End Select
End If
Tables("员工档案").Filter = Filter

With DataTables("员工档案")
    .LoadFilter = Filter '设置加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 20 '每页20行
    .Load()
    e.Form.Controls("page").Value = 1 & "/" & .TotalPages
End With