ksh       xm     kcdm  kcmc  dj
123456   张三    01    政治  D
123456   张三    02    语文  D
123456   张三    03    数学  D
123456   张三    04    英语  D

都是字符型

转换成
ksh     xm    政治   语文     数学    英语
123456  张三   D      D        D       D


还都是字符型

用命令
请高手指点，谢谢

上传个示例自己研究吧

收到的鲜花

• tlliqi 于 2014-11-21 10:44 送鲜花  30朵  

非常感谢，虽然不是命令是个小程序，也是非常感谢。

*构造实例数据
CREATE CURSOR 表 (ksh c(10),xm c(10),kcdm c(2),kcmc c(10),dj c(1))
INSERT INTO 表(ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','01','政治','D')
INSERT INTO 表(ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','02','语文','D')
INSERT INTO 表(ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','03','数学','D')
INSERT INTO 表(ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','04','英语','D')
*******

SELECT distinct kcdm,kcmc FROM 表 INTO CURSOR t2 ORDER BY kcdm
str1="select distinct ksh,xm,"
SELECT t2
SCAN
    str1=str1+"'  ' "+ALLTRIM(kcmc)+","
ENDSCAN
str1=LEFT(str1,LEN(str1)-1)+" from 表 into cursor t1 READWRITE order by ksh"
EXECSCRIPT(str1)
SELECT t2
SCAN
    str2="UPDATE t1 SET "+ALLTRIM(kcmc)+"=b.dj from 表 b WHERE ALLTRIM(t1.ksh)==ALLTRIM(b.ksh) AND ALLTRIM(b.kcmc)=='"+ALLTRIM(kcmc)+"'"
    EXECSCRIPT(str2)
ENDSCAN
USE IN t2

SELECT t1
BROWSE

收到的鲜花

• tlliqi 于 2014-11-21 10:44 送鲜花  30朵  

例子都8错

楼主，你这个案例不能用一条命令解决呀，是得用程序了。因为你涉及到把字段内容转换成字段名的问题了。

CREATE CURSOR Cjb (ksh c(10),xm c(10),kcdm c(2),kcmc c(10),dj c(1))
INSERT INTO Cjb (ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','01','政治','D')
INSERT INTO Cjb (ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','02','语文','D')
INSERT INTO Cjb (ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','03','数学','D')
INSERT INTO Cjb (ksh,xm,kcdm,kcmc,dj) VALUES ('123456','张三','04','英语','D')
T1=Seconds()
Local cBh,cKm
cBh="Ksh"
cKm="Kcmc"
Select Distinct &cKm From Cjb Into Array Akm
List Memory LIKE Akm
cStru=cBh+" C(6)"
For lnI=1 To Alen(Akm,1)
    cStru=cStru+Iif(Not Empty(cStru),",","")+Akm[lnI]+" C(1)"
EndFor 
Create Cursor 列转行 (Xm C(10),&cStru)
Insert Into 列转行 (&cBh,Xm) Select Distinct &cBh,Xm From Cjb
For lnI=1 To Alen(Akm,1)
    Update 列转行 Set &Akm[lnI]=A.Dj From Cjb A Where 列转行.&cBh==A.&cBh And Akm[lnI]==A.&cKm
EndFor 

MessageBox("共运行："+Transform(Seconds()-T1)+" 秒")
Browse 

全链接  inner in

把两张表关联起来