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

重新Load表格以后，不能再用 e.Node.DataRow

你换一种思路吧。