If DataTables("表A").DataCols.Contains("重复筛选") = False
DataTables("表A").DataCols.Add("重复筛选",Gettype(String),"")
End If
DataTables("表A").DataCols("重复筛选").Expression = "[姓名]+" & vblf & "[爱好]+" & vblf & "[特长]+" & vblf & "[气质类型]"
Tables("表A").Filter = "[System_Filter_Unique] = 1 and 重复筛选 is not null and 重复筛选 <> ''"