Dim x As String For i As Integer = 0 To Tables("表名").Cols.Count -1 x = x & Tables("表名").Cols(i).Name & "|" & Tables("价目表").Cols(i).Width & "|" Next Tables("窗口_Table1").SetColVisibleWidth(x) 上面的代码是主表同副本中的列排序一致. 下面的代码是在副本中可以显示哪几个列 Dim Vals As New List(Of String) Vals.AddRange("|列名1|列名2|列名2|".Split("|")) For Each c As Col In Tables("窗口_Table1").Cols c.Visible = Vals.Contains(c.name) Next