参考
http://www.foxtable.com/help/topics/1943.htm
Dim lst As List(Of String)lst = Connections("nwnd").GetTableNamesFor Each nm As String In lst Output.Show(nm)Next