*!*    示例 1 : 两个字符型字段的转置示例 :
Close Databases All

*!*    1. 建立测试数据 :
Create Cursor Test ( Id C(1), Class C(1) )
Insert Into Test ( Id, Class ) Values ( "1", "A" )
Insert Into Test ( Id, Class ) Values ( "1", "B" )
Insert Into Test ( Id, Class ) Values ( "1", "A" )
Insert Into Test ( Id, Class ) Values ( "1", "A" )
Insert Into Test ( Id, Class ) Values ( "1", "B" )
Insert Into Test ( Id, Class ) Values ( "1", "A" )
Insert Into Test ( Id, Class ) Values ( "2", "B" )
Insert Into Test ( Id, Class ) Values ( "2", "B" )
Insert Into Test ( Id, Class ) Values ( "2", "A" )
Insert Into Test ( Id, Class ) Values ( "2", "B" )
Insert Into Test ( Id, Class ) Values ( "2", "B" )
Insert Into Test ( Id, Class ) Values ( "2", "B" )

Select Distinct Class From Test Into Array laClasses

*!*    2. 构造一个通用的转置函数 :
m.lcSQL = "Select Test.ID "
For Each lcClass In laClasses
    m.lcSQL = m.lcSQL + "," + "SUM( IIF(test.Class = [" + lcClass+"], 1, 0) ) As " + lcClass
Endfor
m.lcSQL = m.lcSQL + " From TEST GROUP BY Test.ID"
&lcSQL

*!*    转置结果 :

*!*    id   A   B
*!*    ==========
*!*     1   4   2
*!*     2   1   5


*!*    示例 2 : 10个(or 20个)字段的转置示例 :
待续ing..........


*!*    示例 3 : VFP 可以做到而 SQL Server 的 PIVOT() 很难做到的转置示例 :
待续ing..........

Do (_Genxtab) With 'xtab'
xtab是转置后的表名吗?求Genxtab的用法.

xtab 是游标名。可以指定 DBF 或 DBC 格式。

是这样吗?
Do (_Genxtab) With 'xtab' into dbf 自由表名
帮助里没有

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

Genxtab Help 好像没有特意介绍的，但在 VFP 里有向导的，或者在 Genxtab.Prg/VFPxtab,Prg 里有说明的。
我试试看翻译一下 FastXTab.Prg 最新版的资料。

不知道行不行。

1. vfpxtab.prg 用法：
有 10 个参数：
参数 : 1 : 输出的文件/游标名 (缺省值 : "xTab.dbf")
       2 : 指定为游标        (缺省值 : .F.)
       3 : 完成后关闭输入表  (缺省值 : .T.)
       4 : 显示进度条        (缺省值 : .T.)
       5 : 行字段            (缺省值 : 1)
       6 : 列字段            (缺省值 : 2)
       7 : 数据字段          (缺省值 : 3)
       8 : 聚合/汇总运算     (缺省值 : .F.)
       9 : 聚合/汇总运算选项 (0 = Sum, 1 = Count, 2 = %)
      10 : 显示 Null 值

示例：
Do (_Genxtab) With 'xTab', .T., .F., .T., 1, 4, 5, .T., 0, .F.

我的库中有1230多条记录，为什么转换时出现 难道只有254条可转换吗？

字段数限制？

自由表、游标的字段限制数：254
交叉表的常量表：
#define    C_LOCATEDBF    "请定位输入的数据库:"
#define    C_OUTPUT    "输入和输出的数据库不能同名."
#define    C_NEED3FLDS    "交叉表输入的数据库必须至少有三个字段."
#define    C_EMPTYDBF    "在无记录的数据库中不能处理交叉表."
#define    C_BADPAGEFLD    "在输入时数据库中交叉表的页字段不可以是 Memo、General 或者是 Picture 字段."
#define    C_BADROWFLD    "在输入时数据库中交叉表的行字段不可以是 Memo、General 或者是 Picture 字段."
#define    C_BADCOLFLD    "在输入时数据库中交叉表的列字段不可以是 Memo、General 或者是 Picture 字段."
#define    C_BADCELLFLD    "在输入时数据库中交叉表的 cell 字段不可以是 Memo、General 或者是 Picture 字段."
#define    C_NOCOLS    "列值没有找到."
#define    C_XSVALUES    "列字段的数量过多，超过了最大容许值 254."
#define    C_UNKNOWNFLD    "未知的字段类型."

能提供的源码？大家学习下