如何打印不为零的字段名 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何打印不为零的字段名

我的收件箱(0)

共有 971 人关注过本帖

标题：如何打印不为零的字段名

取消只看楼主加入收藏

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4
结帖率：90.14%

楼主

已结贴√ 问题点数：20 回复次数：4

如何打印不为零的字段名

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

表2.rar (497 Bytes)

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

搜索更多相关主题的帖子: 如何　

2013-06-06 01:46

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 2 楼

得分:0

回复 5楼 taifu945

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

2013-06-07 20:22

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 3 楼

得分:0

回复 8楼 kiff

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

2013-06-10 07:13

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 4 楼

得分:0

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

2013-06-10 07:15

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 5 楼

得分:0

程序代码：

CLOSE DATABASES
USE D:\1\表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 where 序号=1001  into cursor 表2_tmp"
     sql_c="select recno() 序号,* from (select "+LEFT(sql_c,LEN(sql_c)-1)+" from 表2 where 序号=1001 ) a  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

在 &sql_c 语句卡住了不能运行下去了. 用的是VFP6.0

表2.rar (623 Bytes)

[ 本帖最后由 tjdeming 于 2013-6-10 19:20 编辑 ]

2013-06-10 18:55

快速回复：如何打印不为零的字段名