CurrentTable.Filter = iif(CurrentTable.Filter>"", "(" & CurrentTable.Filter & ") and ", "") & "第一列 = '1'"msgbox(CurrentTable.Filter)