在筛选案例时，对话框下方选择将筛选结果新建一个文件即可。

谢谢张老师，
但是要是通过写程序该怎么弄啊？
比方程序是这样的：
use all .
do if $casenum=1.
compute #s_$_1=100.
compute #s_$_2=3000.
end if.
do if  #s_$_2>0 .
compute filter_$=uniform(1) * #s_$_2< #s_$_1.
compute #s_$_1= #s_$_1-filter_$.
compute #s_$_2=#s_$_2-1.
else .
compute filter_$=0.
end if.
VARIABLE LABEL  filter_$ '50 from 1000 cases (sample)'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.
然后应该怎么写啊？

你用对话框的粘贴语句方式把程序粘贴出来一看就明白了。

张老师我试了用黏贴方式找程序，改成了
DATASET ACTIVATE 数据集1.
DATASET COPY  AAA.
DATASET ACTIVATE  AAA.
FILTER OFF.
USE ALL.
do if $casenum=1.
compute #s_$_1=100.
compute #s_$_2=3000.
end if.
do if  #s_$_2>0 .
compute filter_$=uniform(1) * #s_$_2< #s_$_1.
compute #s_$_1= #s_$_1-filter_$.
compute #s_$_2=#s_$_2-1.
else .
compute filter_$=0.
end if.
VARIABLE LABEL  filter_$ '100 from 3000 cases (sample)'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE.
DATASET ACTIVATE  数据集1.


结果新的保留的数据库还是将舍去的数据记录号前划了斜杠，并不是仅保留选取的数据。

你的操作不对，我说了是新建文件而不是默认的筛选出来。