| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 750 人关注过本帖
标题:[求助]报表设置问题
只看楼主 加入收藏
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
 问题点数:0 回复次数:5 
[求助]报表设置问题
有表账号 ,日期, 收入 ,支出.有固定上月余额为5000,打印时能否实现以下效果??报表以账号,日期分组..
账号 日期 收入 支出 余额
上月结余 5000
01 06-09-15 1000
01 06-09-15 1000
01 06-09-15 3000
4900
01 06-09-16 2000
01 06-09-16 2000
4500
01 06-09-17 1000
01 06-09-17 5000
4100
报表上可以设置吗?能不能我算06-09-16时,计算15,16日的收入支出SUM值?
搜索更多相关主题的帖子: 账号 账号 
2006-10-09 14:44
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 

主要是如何算那余额4900,4500,4100??


2006-10-09 14:45
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

有表,字段为账号,日期,收入,支出,有固定上月余额为5000
打印时能否实现以下效果??报表以账号,日期分组
账号 日期 收入 支出 余额
上月结余 5000
01 06-09-15 100
01 06-09-15 100
01 06-09-15 300
4900
01 06-09-16 200
01 06-09-16 200
4500
01 06-09-17 100
01 06-09-17 500
4100

假定原表(日记表1.DBF)为
账号 摘要 日期 收入 支出 余额
01 06-09-15 100
01 06-09-15 100
01 06-09-15 300
01 06-09-16 200
01 06-09-16 200
01 06-09-17 100
01 06-09-17 500

要求新表(日记表2.DBF)为
账号 摘要 日期 收入 支出 余额
上月结余 06-08-31 5000
01 06-09-15 100
01 06-09-15 100
01 06-09-15 300
本日结余 06-09-15 4900
01 06-09-16 200
01 06-09-16 200
本日结余 06-09-16 4500
01 06-09-17 100
01 06-09-17 500
本日结余 06-09-17 4100

则有程序

SET SAFETY OFF
SET DATE ANSI
CLOSE ALL
IF FILE("日记表1.DBF")
USE 日记表1.DBF
ELSE
CREATE TABLE 日记表1 (账号 C(11),摘要 C(8),日期 D,收入 N(14,2),支出 N(14,2),余额 N(14,2))
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,15),100,0,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,15),100,0,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,15),0,300,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,16),0,200,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,16),0,200,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,17),100,0,0)
INSERT INTO 日记表1 (账号,摘要,日期,收入,支出,余额) VALUES ("01","",DATE(2006,9,17),0,500,0)
ENDIF
COPY STRUCTURE TO 日记表2.DBF
SELECT 2
USE 日记表2.DBF
nRest=5000
dDate=DATE(2006,8,31)
INSERT INTO 日记表2 (账号,摘要,日期,收入,支出,余额) VALUES ("","上月结余",dDate,0,0,nRest)
SELECT 1
GO TOP
nRest=nRest+收入-支出
dDate=日期
INSERT INTO 日记表2 (账号,摘要,日期,收入,支出,余额) VALUES (A.账号,A.摘要,dDate,A.收入,A.支出,nRest)
SELECT 1
GO 2
DO WHILE !EOF()
IF A.日期!=B.日期
dDate=B.日期
INSERT INTO 日记表2 (账号,摘要,日期,收入,支出,余额) VALUES ("","本日结余",dDate,0,0,nRest)
ENDIF
SELECT 1
nRest=nRest+收入-支出
INSERT INTO 日记表2 (账号,摘要,日期,收入,支出,余额) VALUES (A.账号,A.摘要,A.日期,A.收入,A.支出,nRest)
SELECT 1
SKIP
ENDDO
INSERT INTO 日记表2 (账号,摘要,日期,收入,支出,余额) VALUES ("","本日结余",dDate,0,0,nRest)
SELE 1
GO TOP
SELE 2
GO TOP
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="A"
THISFORM.GRID2.COLUMNCOUNT=-1
THISFORM.GRID2.RECORDSOURCE="B"
REPORT FORM 日记表2 PREVIEW


感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-10-10 01:33
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
谢谢老虎,我要的效果就是你那样的啊..但是我表里面有很多账号,我的表里面已经有很多记录了.不用插入了.我只想把我日记表里的内容显示成你说的那样..显示每日的结余数...

2006-10-10 09:50
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
我为什么要插入?你有数据而我没有数据,因此就有上面的添加记录的语句。至于别的日期的结余问题,你可根据给定的代码进行修改。

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-10-10 11:53
xbj222
Rank: 1
等 级:新手上路
帖 子:179
专家分:0
注 册:2006-2-6
收藏
得分:0 
哎~

2006-10-10 14:21
快速回复:[求助]报表设置问题
数据加载中...
 
   



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

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