Dim m,n,k As Integer m = Tables("采购明细").Cols("F1").Index k = Tables("尺码档案").rows.count For i As Integer = 1 To k For Each r As Row In Tables("尺码档案").rows If Tables("采购明细").Cols("F" & i).Caption = r("尺码名称") n = r.Index Tables("窗口1_Table1").Cols("F" & i).Move(n) End If Next Next