1、共几行:Tables("表").Count ; 第几行: Tables("表").position+1
2、目录树的NodeMouseDoubleClick事件设为:
Dim Value()As StringValue = 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