主题：分页加载筛选报错

 不能这样用

Dim dr As DataRow = e.Node.DataRow

 要改代码

Dim ary() as string = e.node.fullName.split("\")
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Tables("窗口1_Table1").Filter = "[第一列] = '" & ary(0) & "'"
            Tables("窗口2_Table2").Filter = "[第一列] = '" & ary(0) & "'"
    End Select
End If