主题：窗口位置

Dim CName As String = "第一列"
Dim i As Integer = CurrentTable.Cols(CName).Index
CurrentTable.Select(0,i)
Syscmd.Filter.HideSameValues()

With Tables("表名")
            .Select(.RowSel, .Cols("列名").Index)
            Syscmd.Filter.HideSameValues()
        End With

发错了!