呵呵,我也来个列明排序的:
Dim t As Table = Tables("表A")Dim nms As new List(of String)For Each c As col In t.cols nms.add(c.name)Nextnms.sort()For i As Integer = 0 To nms.count -1 t.cols(nms(i)).move(i)Next