列记录转换为行记录

clear allcreate 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])    endforendscanselect t3browse