cross tab

cross_tab.prg

%% http://tomorrowssolutionsllc.com/ConferenceSessions/Turning%20Data%20Sideways.pdf
%% https://github.com/VFPX/FastXTab/

LOCAL oXTab AS FastXTab OF "fastxtab\fastxtab.prg"
oXTab = NEWOBJECT("fastxtab", "fastxtab\fastxtab.prg")
WITH oXTab AS FastXTab OF "fastxtab\fastxtab.prg"
	.cColField = 'gu_count'
	.nMultiDataField = 2        %% 以 gu_count 和 gunum 分组，每组显示多个数据
	.acDataField[1] = 'clnum'   %% 第一计数据是 clnum
	.acDataField[2] = 'payroll' %% 第二个数据是 payroll
	.lBrowseAfter = .T.         %% 运行后弹出结果
	.lCursorOnly = .T.          %% 保存至 cursor
	.lCloseTable = .F.          %% 运行后不关闭原表
	.cOutFile = 'gunum_result'  %% 结果保存为文件或cursor时使用的名称
	.RunXtab()
ENDWITH