一个表有上万条记录，有一个字段为年份，值有2014,2013,2012.我想从这个字段中每一年都按10%随机抽取记录生成一个新的表，该如何写程序？谢谢！

加一列，用来写入随机数，然后按年份、按随机数进行排序，每一年份的前10%学生就是你所想要的数据了

请问随机数怎么给啊？

CLEAR ALL
CLOSE ALL

* 建立空结果表 curResult
SELECT 0 AS id,* FROM 表 WHERE .f. INTO CURSOR curResult READWRITE

* 添加随机数列形成新表 t1
SELECT RAND() as id,* FROM 表 INTO CURSOR t1

* 统计各年份的记录数形成新表 t2
SELECT 年份,CNT(*) as 记录数 FROM 表 GROUP BY 年份 INTO CURSOR t2

* 按各年份记录数的10%，筛选记录到结果表 curResult
SELECT t2
SCAN
    INSERT INTO curResult ;
        SELECT TOP IIF(t2.记录数*0.1<1,1,t2.记录数*0.1) * ;
        FROM t1 ;
        WHERE 年份 = t2.年份 ;
        ORDER BY 年份,id
ENDSCAN

* 显示查询结果
SELECT curResult
ALTER TABLE curResult drop COLUMN id
GO TOP
BROWSE

补充说明：你把随机数那个字段的小数位设得多一点，这样可以最大程度地区分每一条记录。

SELECT t2
SCAN
    INSERT INTO curResult ;
        SELECT TOP IIF(t2.记录数*0.1<1,1,t2.记录数*0.1) * ;
        FROM t1 ;
        WHERE 年份 = t2.年份 ;
        ORDER BY 年份,id
ENDSCAN

提示有不识别的短语或关键词

我的代码在 VFP 9.0 下调试通过。

编程的关键是思路，思路是否合理，决定了程序的优劣。

谢谢大家，解决了！

SELECT INT(RAND()*10000) id,* FROM 表 INTO CURSOR t1 READWRITE ORDER BY 年份,id
REPLACE ALL id WITH RECNO() IN t1
SELECT 年份,MIN(id) id,CEILING(0.1*COUNT(*)) 记录数  FROM t1 INTO CURSOR t2 GROUP BY 年份
SELECT a.* FROM t1 a,t2 b INTO CURSOR t4 WHERE a.年份=b.年份 AND a.id-b.id+1<=b.记录数
*表t4为结果



[ 本帖最后由 kiff 于 2014-10-13 15:36 编辑 ]