foxpro中建立交叉表

交叉表在实际使用中比较方便,建立方法:

非可视类:_xtab

类库:..\ffc\_utility.vcx

将该类放到表单上,在相应按钮中写如下代码

SELECT dw,dw,gz FROM kt1 INTO CURSOR temp
WITH THISFORM._xtab1
 .lTotalRows = .T.
 .nTotalOption = 0 &&totaling options (0-sum, 1-count, 2-% of total)
 .lDisplayNulls = .f.
 .lBrowseAfter = .T.
 .RunXtab()
ENDWITH

 

 

代码功能:

从表kt1.dbf中分单位统计工资总额(字段:dw--单位 gz---工资)

================================================================

_xtab

属性、事件、方法程序	说明
cOutfile 属性	输出文件名。 默认值：xtabquery
lCursorOnly 属性	指定输入数据源是否为临时表。 默认值：.T.
lCloseTable 属性	指定在生成交叉表后，是否关闭数据源。 默认值：.T.
lShowThem 属性	指定在生成交叉表过程中，是否显示进度。 默认值：.T.
nRowField 属性	指定交叉表行在数据源中的字段位置。 默认值：1
nColField 属性	指定交叉表列在数据源中的字段位置。 默认值：2
nDataField 属性	指定交叉表数据在数据源中的字段位置。 默认值：3
lTotalRows 属性	指定在交叉表输出中是否按行进行汇总。 默认值：.F.
nTotalOption 属性	指定执行汇总的选项。 0 = 求和 1 = 计数 2 = 占总数的百分比。 默认值：0
lDisplayNulls 属性	指定在交叉表输出中是否显示 null 值。 默认值：.F.
lBrowseAfter 属性	指定是否在浏览窗口中打开交叉表输出。 默认值：.T.
RunXtab 方法程序	生成一个交叉表。 语法：RunXtab( ) 返回值：无 参数：无

 

=====================================

注意事项

1.生成交叉表需要三个字段:其中两个字符型,一个数值型,字符型查以相同.

 

2.生成交叉表时,一般用第二个字段做为表的第一列,用第一个字段做为表的行,第三个字段做为统计对象.所以一般在select语句中,用作第一列的字段放在第一位,用作行的放在第二位(但最多不能超过254),统计对象放在第三位.