主题：显示列名顺序

DataTables("表C").DeleteFor("")
For i as integer = 0 to tables("表B").cols.count -1  
dim dc as col = tables("表B").cols(i)

    dim dr as row=Tables("表C").Rows.AddNew()
    dr("列名")=dc.name
next