clear
set date ansi
set mark to "-"
create cursor t1 (xm c(2),xb c(2),csrq d)
insert into t1 values ("01","男",date(1995,01,01))
insert into t1 values ("02","男",date(1995,01,02))
insert into t1 values ("03","女",date(1995,01,03))
insert into t1 values ("04","男",date(1995,01,04))
insert into t1 values ("05","男",date(1995,01,05))
insert into t1 values ("06","女",date(1995,01,06))
insert into t1 values ("07","女",date(1995,01,07))
insert into t1 values ("08","女",date(1995,01,08))
select *,recno() bz from t1 where xb="女" into array abz
select t1
list for recno()<=7 and xb="女"