主题：重定向窗口怎么做的（狐爸快来）

Dim lst As List(Of String)

For Each cn As Connection In Connections

    lst = Connections(cn.name).GetTableNames

    For Each nm As String In lst

        Output.Show("数据源名字为:" & cn.Name & "   该数据源拥有的表名是:   " & nm)

    Next

Next