| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 719 人关注过本帖
标题:再求助:按日历统计数据
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:10 
程序代码:
CLOSE DATABASES 
USE gg IN 0
ZAP 
SELECT num, nina FROM ffff GROUP BY 1, 2 INTO CURSOR temp

SCAN
    SELECT * FROM ffff WHERE num = temp.num AND nina = temp.nina ORDER BY num, ny INTO CURSOR temp1
    lncnt = 0
    SCAN 
        FOR ln = 5 TO FCOUNT() - 2
            IF ALLTRIM(EVALUATE(FIELD(ln))) == "探"
                lncnt = lncnt + 1
                IF lncnt = 1
                    lcny = TRANSFORM(ny) + PADL(SUBSTR(FIELD(ln), 2), 2, "0")
                ENDIF 
                lcny1 = TRANSFORM(ny) + PADL(SUBSTR(FIELD(ln), 2), 2, "0")
            ENDIF 
        ENDFOR
    ENDSCAN
    lcny = CHRTRAN("abcd,ef,gh", 'abcdefgh', lcny)
    lcny1 = CHRTRAN("abcd,ef,gh", 'abcdefgh', lcny1)
    INSERT INTO gg VALUES (temp.num, VAL(LEFT(lcny1, 4)),DATE(&lcny), DATE(&lcny1), lncnt)
ENDSCAN 
SELECT gg
BROWSE 

坚守VFP最后的阵地
2023-07-10 17:27
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
回复 9楼 csyx
感谢!感谢!感谢!
程序,6.0正常运行。
2023-07-11 19:50
tjdeming
Rank: 2
等 级:论坛游民
帖 子:429
专家分:54
注 册:2013-3-4
收藏
得分:0 
回复 11楼 sdta
感谢!感谢!感谢!
按年分类统计(年内的不论跨月与否都作为一条记录)
再次感谢。
2023-07-11 19:55
快速回复:再求助:按日历统计数据
数据加载中...
 
   



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

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