作者在 2015-02-18 02:34:29 发布以下内容
clear all
create cursor t3 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3))
create cursor t1 (学号 c(4),姓名 c(8),数学 n(3),语文 n(3))
insert into t1 values ("1001","张三",102,120)
insert into t1 values ("1002","李四",119,108)
nzds=2
scan
scatter to azd
for lnI=1 to fcount("t1")-nzds
insert into t3 values (t1.学号,t1.姓名,field(lnI+nzds,"t1"),azd[lnI+nzds])
endfor
endscan
select t3
browse
