VFP 列记录转行记录

作者在 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
数据表问题 | 阅读 1503 次
文章评论,共0条
游客请输入验证码
浏览376334次