主题：关于列顺序批量调整的求助（商业版与开发版）

t.FindRow(dr) 只要Tables("窗口1_Table1")中的行数足够（比列数多）就没有问题，因为Dim wz As Integer = t.FindRow(dr)只是要个行号而已。

关键是Names(wz) = c.Name 怎么Names(wz) 到

For i As Integer = 0 To Names.Length -1
    s & = "|" & Names(i) & "|-1"
Next

里面就能够自动排序了，我还没弄明白····