重复了，删除。

[此贴子已经被作者于2016-3-13 22:04编辑过]

是不是这样，语句比较多。理解起来容易些

空记录间隔多余，可以不要。

Create Table Test1 (Id Int, 姓名 C(20), Q1 Int, Q2 Int, Q3 Int, Q4 Int)
Insert Into Test1 Values(1, '老张', 1000, 2000, 4000, 5000)
Insert Into Test1 Values(2, '小李', 3000, 3500, 4200, 5500)
CREATE CURSOR tt (S1 C(10), S2 C(10))
SELECT Test1
SCAN
    FOR i = 1 TO FCOUNT()
        ss1 = FIELD(i)
        ss2 = TRANSFORM(EVALUATE(ss1))
        INSERT INTO tt VALUES (ss1, ss2)
    ENDFOR
ENDSCAN
SELECT tt
GO TOP 
BROWSE

create cursor t1 (fld1 c(50))
select 0
use 表
scan
    for i = 1 to fcount()
        cFldName = field(i)
        insert into t1 (fld1) values (cFldName+":"+tran(eval(cFldName)))
    next
endscan
select t1
copy to 结果.xls xl5

使用 Browse 命令的 Edit 模式显示

Browse REdit

就是将这表 转化为这表

俺再将代码微调一下：

create cursor t1 (fld1 c(20),fld2 c(30))
select 0
use 表
scan
    for i = 1 to fcount()
        cFldName = field(i)
        insert into t1 (fld1,fld2) values (cFldName+":",tran(eval(cFldName)))
    next
    appe blank in t1
endscan
select t1
copy to 结果.xls xl5

很有意思的讨论，转换后的格式，有点像XML　格式了，只是没有字段定义语句而已，我在想把它转换为XML　，再去掉那些格式描述，之后剩下的，是不是就是你要的东西了呢？可惜暂时没时间去试。

Close Databases
Create Cursor Test1 (Id Int, Name C(10), XingBie C(2), PhoneNum C(5))
Insert Into Test1 Values(1, '张三', '男', '12345')
Insert Into Test1 Values(2, '李四', '女', '61897')
Insert Into Test1 Values(3, '王五', '男', '13354')

Select Id, Field(1) + ':' As 字段A, (Select PadL(Id, 10, " ")       As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(2) + ':' As 字段A, (Select Name                    As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(3) + ':' As 字段A, (Select XingBie                 As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(4) + ':' As 字段A, (Select PadL(PhoneNum, 10, " ") As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
     Into Cursor Query

Select 字段A, 字段B From Query
  

[此贴子已经被作者于2016-3-14 19:33编辑过]

use x.dbf

fhandle=fcreate("c:\temp.txt")

for nRec=1 to reccount()

   go nRec

   for nfcount=1 to fcount()

       cString=field(nfcount)+": "+(field(nfcount))

       =fput(fhandle,cString)

   endfor

   =fput(fhandle,chr(10)+chr(13))

endfor

=fclose(fhandle)

生成一个txt格式文件，从excel导入即可。