一个表tb，字段有xh（数值型）、xxh（数值型）、ksh（字符型）、xm（字符型）、bj（字符型），分别表示序号、新序号、考生号、姓名、班级。表tb中有若干行记录，要按自然顺序把表中前一半（或+1）记录生成一个新表tb1，剩下的后一部分记录生成另一个新表tb2,要求tb1的行数等于表tb2的行数或比tb2多1行记录，即：tb的行数为偶数时tb1和tb2的行数相等，为奇数时tb1比tb2的行数多一行，举例说，假设表tb有80行，那tb1为前40行tb2为后40行，如果tb有79条记录，那么tb1的行数应该是前40行，tb2的行数是后39行；同时要求tb1的xxh变为奇数1、3、5、7、9……，tb2的xxh变为2、4、6、8、10……,代码怎么写？

[此贴子已经被作者于2022-7-2 10:45编辑过]

CLEAR 
CREATE CURSOR tb (xh n(4), xxh n(4))
ln1 = 21
FOR ln = 1 TO ln1
    INSERT INTO tb (xh) VALUES (ln) 
ENDFOR
ln2 = CEILING(ln1/2)
SELECT xh, RECNO()*2 - 1 xxh FROM tb WHERE RECNO() <= ln2 INTO CURSOR tb1
BROWSE 
SELECT xh, xxh FROM tb WHERE RECNO() > ln2 INTO CURSOR tb2 READWRITE 
REPLACE xxh WITH RECNO()*2 ALL 
BROWSE 

版主威武！多谢了！

活跃度不够无权投票，可惜了，不然投版主一票