你在命令窗口执行看看:
Dim nms As New List(of String)For Each dt As DataTable In DataTables nms.add(dt.name)Nextnms.sort()For Each nm As String In nms output.show(nm)Next