按钮代码
Dim t As Table = Tables("窗口1_Table1")t.Select(t.Cols("品名").Index,0)Syscmd.Filter.HideSameValues()Tables("窗口1_Table1").Filter = "System_Filter_Unique = 1"