有一张表有N个字段,现在只想打印不为零的字段名.(有数据的字段名打印,无数据的字段名就不打印出来,效果是让人看见:a1,a2,a4,a5)

[ 本帖最后由 tjdeming 于 2013-6-6 01:52 编辑 ]

用临时表打印




[ 本帖最后由 tlliqi 于 2013-6-6 06:40 编辑 ]

vfp很难生成动态列报表（列数不确定），多是导出EXCEL打印容易些。

什么叫只想打印不为零的字段名

在VFP目前的各版本中，这是一个比较好的解决方案。

用临时表打印:请教实际操作命令语句,能写一点吗?谢谢.

大致思路是：类似于人眼看。即，设个循环以字段数为标准，从第1个到最后一个，把每个字段的所有记录都扫描一遍。只要有记录在该字段上不为空，就将该字段名放入一个数组元素中。如此循环，等到外层大循环执行完毕，这个存放字段名的数组中就集成了所有过滤出来的有效字段。
代码：
字段数=FCOUNT()
有效字段数=0
DIMENSION 有效字段(字段数)
FOR I=1 TO 字段数
   字段名=FIELDS(I)
   SELECT COUNT(&字段名) FROM 表文件名 WHERE !EMPTY(&字段名) INTO ARRAY 记录数
   IF 记录数(1,1)>0
      有效字段数=有效字段数+1
      有效字段(I)=字段名
   ENDIF
NEXT
后面循环生成临时表的结构时，记住，得用“有效字段数”变量中的值作为循环的终点来读取“有效字段”数组中的内容了。另外，数值型字段的0值也属于空值；逻辑型字段.F.值也属于空值。

CLOSE DATABASES
USE D:\1\表2\表2 IN 0
SELECT 表2
sql_c=''
FOR i=1 TO FCOUNT()
    LOCATE FOR NOT EMPTY(EVALUATE(FIELD(i)))
    IF FOUND()
        sql_c=sql_c+ALLTRIM(FIELD(i))+","
    ENDIF
ENDFOR
IF NOT EMPTY(sql_c)
    sql_c="select "+LEFT(sql_c,LEN(sql_c)-1)+" from 表2 into cursor 表2_tmp"
    &sql_c.
    SELECT 表2_tmp
    m.out_filename=ALLTRIM(PUTFILE('','','xls'))
    IF not empty(m.out_filename)
        SELECT 表2_tmp
        COPY to (m.out_filename) XLS &&导出excel
    ENDIF
    USE IN 表2_tmp
ENDIF
CLOSE DATABASES

谢谢.
试用后,效果很好.
需要完善一下:表2中有N条记录,想导出某条记录,每条记录都有一个序号(唯一性),这样行吗?

回复 8楼 kiff
谢谢.
试用后,效果很好.
需要完善一下:表2中有N条记录,想导出某条记录,每条记录都有一个序号(唯一性),这样行吗?