| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1413 人关注过本帖
标题:问个字符或者日期相加问题?
只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
不是源表,原表是TMP_CASH,我写在TMP_CASH2,多了个2的。
我看了,你们说用SCAN,,怎么用啊,我只会用FOR.
2015-04-12 17:53
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
scan实际上就是for

授人以渔,不授人以鱼。
2015-04-12 17:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
基础知识是要靠自己学习的

坚守VFP最后的阵地
2015-04-12 18:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用TonyDeng在2015-4-12 17:57:03的发言:

scan实际上就是for

不要误导

坚守VFP最后的阵地
2015-04-12 18:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 9楼 mywisdom88
2楼已经给出了思路

坚守VFP最后的阵地
2015-04-12 18:15
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
以下是引用sdta在2015-4-12 18:13:51的发言:

 
不要误导

那你给我讲授一下?

授人以渔,不授人以鱼。
2015-04-12 18:15
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
2楼用SCAN,,
我不会用,只能用FOR,勉强把要的结果搞出来了。
SELECT 编号,MAX(费用期间) 费用期间,SUM(费用合计) 合计,SUM(电费合计) 电费,SUM(水费合计) 水费,SUM(管理费) 管理费,SUM(滞纳金) 滞纳金,SUM(垃圾费) 垃圾费,1 AS 公用电费,交费,备注,备注+SPACE(80) 交费备注,ID16 ;
       FROM TMP_CASH WHERE 操作=1 GROUP BY 编号 INTO TABLE DATA\TMP_CASH2

SELECT TMP_CASH2
INDEX ON 编号 TAG 编号

*SELECT TMP_CASH2
RN2=RECC()
SELECT TMP_CASH
RN=RECC()
RQ=""   
FOR I=1 TO RN2
    SELECT TMP_CASH2
    GO I
    RQ=""
    BH=编号
    FOR J=1 TO RN
       SELECT TMP_CASH
        GO J
        IF 编号=BH AND 操作=1
           RQ=RQ+STR(YEAR(费用期间),4)+[/]+PADL(MONTH(费用期间),2,[0])++[ ;]
        ENDIF
    ENDFOR
    UPDATE TMP_CASH2 SET 交费备注=RQ WHERE 编号=BH
    RQ=""
ENDFOR   
2015-04-12 18:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:8 
* 根据一楼的数据及SQL命令的条件,写了如下代码,没有具体测试数据,未经验证。
程序代码:
clear all
Set Collate To "MACHINE" 
select 0 
use 表a
total to hzb on 编号 fields 费用1,费用2,费用3 for 参加=.T.
select 0
use hzb
if type("内容")="U"
    alter table hzb add 内容 M
endif
index on 编号 to bh
select 表a
set relation to 编号 into hzb
scan
    replace hzb.内容 with hzb.内容-","-dtoc(表a.日期)
endscan
set relation to
select hzb 
set index to
replace all 内容 with substr(内容,2)
* 显示结果
browse

坚守VFP最后的阵地
2015-04-12 18:22
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
楼主用的是VFP9吧

坚守VFP最后的阵地
2015-04-12 18:26
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:2 
scan endscan 只能对表操作,区别在此

坚守VFP最后的阵地
2015-04-12 18:27
快速回复:问个字符或者日期相加问题?
数据加载中...
 
   



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

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