主题：学习中遇到的因难请求老师帮助

1、共几行：Tables("表").Count ;  第几行: Tables("表").position+1

2、目录树的NodeMouseDoubleClick事件设为：

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Tables("表").Filter ="[省份] = '" & Value(0) & "'"
    Case 1
        Tables("表").Filter ="[省份] = '" & Value(0) & "' And [市级] = '" & Value(1) & "'"

End Select