主题：字典遍历问题

Dim dic As New Dictionary(Of String, List(Of String))
Dim l1 As new List(Of String)
Dim l2 As new List(Of String)
l1.add("1")
l1.add("2")
l2.add("33")
l2.add("44")

dic.add("list1", l1)
dic.add("list2", l2)

For Each key As String In dic.Keys
    for each s as string in dic(key)
        output.show(key & "   " & s)
    next
next

获取表名信息

可以根据临时表获取表信息

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
    Dim cmd As new SQLCommand
    cmd.ConnectionName = "nwnd"
    cmd.CommandText = "select * fr om {" & nm & "} where 1=2"
    Dim dt As DataTable = cmd.ExecuteReader
    For Each dc As DataCol In dt.datacols
        output.show(dc.name & "  " & dc.datatype.name)
    Next
Next