| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 971 人关注过本帖
标题:如何打印不为零的字段名
只看楼主 加入收藏
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:0 
用 where 条件
如需要排序,用 order by 排序字段
用 RECNO() 生成序号

形式如下:

sql_c="select recno() 序号,* from (select "+LEFT(sql_c,LEN(sql_c)-1)+" from 表2 where 查找条件 order by 排序字段) a  into cursor 表2_tmp"



[ 本帖最后由 kiff 于 2013-6-10 11:38 编辑 ]
2013-06-10 11:32
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分: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
快速回复:如何打印不为零的字段名
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019866 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved