主题：请教:在另表取表B所有列名称

你只要增加一个叫 表对照 的表 剩下的万能代码帮你搞定

Dim dc As DataCol
Dim i As Integer = 0
For Each dt As DataTable In DataTables
    DataTables("表对照").DataCols.Add( dt.name,Gettype(String) )
    With Tables("表对照")
        .position = 0
        i = 0
        For Each dc  In dt.DataCols
            If i >= .Rows.count
                .AddNew()
            End If
            .Rows(.position )(dt.name)=dc.Name
            i=i+1
            .position = i
        Next
    End With
Next