菜鸟请教一个dbf表的转置如何编程，谢谢。

有dbf表： 考号    科目    等级

          1001      01      2
          1001      02      3
          1001      03      1
          1002      01      2
          ……    ……    ……


如何编程程序转置成： 考号  科目01等级  科目02等级  科目03等级

                    1001    2            3        1
                    1002    2          ……      ……
                    1003  ……        ……      ……

注：每个考号对应几个科目且科目不重复。

请给出大致程序编写或思路，谢谢~~~~
 

这个应该就是竖转横吧?
1.如果科目不是很多,而且固定几个的话(每个考号对应几个无所谓).可以用IIF,ICASE等直接写固定好的SQL语句.
2.如果科目很多,而且随时可能增加的话,那么这个CASE条件可以先连接为一个字符串,然后执行它,如VFP里的宏替换,SQL里的EXEC等,具体的代码参考:
https://bbs.bccn.net/viewthread.php?tid=292391&page=1#pid1700324
不完全一样,道理是一样的.

[ 本帖最后由 hgfeng1984 于 2010-3-10 22:36 编辑 ]

感谢，谢谢，我去看看。

再次表示谢意~~~

假设你的源表为: 表a, 代码如下(测试无误)~

sele dist 科目 from 表a into curs tmp
lskm =""
scan
   lsc  =padl(allt(科目),2,"0")
   lskm =lskm +padr(",'  ' 科目&lsc.等级",20)
endscan

sele dist 考号 &lskm from 表a into curs tmp readw
for kk=1 to len(lskm)/20
    lsc =subs(lskm,at("科目",lskm,kk)+4,2)
    upda tmp set 科目&lsc.等级=表a.等级 from 表a where tmp.考号=表a.考号 .and.val(表a.科目)=val(lsc)
endfor
brow noed titl " >> 考生科目等级总览~"
retu


测试结果图:

1.VFP有先成的交叉表生成器 VFPXTAB.prg,调用就行了（方法就不说了）
2.使用查询设计器也可以（在“杂项”中选中“交叉数据表”）。

再次表示感谢，谢谢大家。

认真，详细，热心，博学，

再次感谢作者 茵梦湖！！！！

sele dist 考号 &lskm from cc.dbf into curs tmp readw
程序运行时提示上面这行出错