Dim s As String
For i As Integer = 0 To Tables("订单情况").Cols.Count -1
s = s & Tables("订单情况").Cols(i).Name & "|" & Tables("订单情况").Cols(i).Width & "|"
Next
Tables("控制_Table1").SetColVisibleWidth(s.Trim("|"))
For Each c As Col In Tables("控制_Table1").Cols
c.Visible = Tables("订单情况").Cols(c.Name).Visible
Next
主表和副本表的列顺序一样的代码,放入窗口事件中.