VFP 愛用者社區

[lzm]

*****交叉表函数
CREATE cursor kk (ry c(10) ,xm c(10),je n(10,2))
INSERT INTO kk VALUES ('张三','西药',1.00)
INSERT INTO kk VALUES ('李四','中药',2.00)
INSERT INTO kk VALUES ('王五','检查',3.00)
INSERT INTO kk VALUES ('刘六','治疗',4.00)
INSERT INTO kk VALUES ('张三','治疗',5.00)
INSERT INTO kk VALUES ('李四','西药',6.00)
INSERT INTO kk VALUES ('王五','中药',7.00)
INSERT INTO kk VALUES ('刘六','检查',8.00)
brow

SELECT ry,xm,je ORDER BY 1,2 FROM kk INTO CURSOR lsk
mxab=xtab('lsk','xk',3) &&&源表，目标表，mtotal=0 无合计，1 水平合计，2垂直合计，3 水平＋垂直合计
SELECT * FROM xk INTO CURSOR temp
brow

FUNCTION Xtab

PARAMETERS mxtable,mxtable2,mtotal
Select * From &mxtable Into Cursor Sys(2015)
m8=ICASE(mtotal=2 Or mtotal=3,.t.,.f.)
Do (_Genxtab) With mxtable2,.T.,.T.,.F.,1,2,3,m8,0,0
IF m8=.t.
ALTER TABLE &mxtable2 RENAME COLUMN total TO 合计
ENDIF
mf=Field(1)
If mtotal=1 Or mtotal=3
Total To _hjk On 1
Update _hjk Set &mf = ' 合计'
Append From _hjk
Use In _hjk
Delete File _hjk.Dbf
ENDIF
RETURN mxtable2

* Parameters:
*
* Parm1 - output file/cursor name (default "xtab.dbf")
* Parm2 - cursor only (default .F.)
* Parm3 - close input table after (default .T.)
* Parm4 - show thermometer (default .T.)
* Parm5 - row field (default 1)
* Parm6 - column field (default 2)
* Parm7 - data field (default 3)
* Parm8 - total rows (default .F.)
* Parm9 - totaling options (0-sum, 1-count, 2-% of total)
* Parm10 - display Null values

[siger1762]

VFP 6.0沒有ICASE()，需使用IF判斷。