有表账号 ,日期, 收入 ,支出.有固定上月余额为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值?

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

有表,字段为账号,日期,收入,支出,有固定上月余额为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

谢谢老虎,我要的效果就是你那样的啊..但是我表里面有很多账号,我的表里面已经有很多记录了.不用插入了.我只想把我日记表里的内容显示成你说的那样..显示每日的结余数...

我为什么要插入?你有数据而我没有数据，因此就有上面的添加记录的语句。至于别的日期的结余问题，你可根据给定的代码进行修改。

哎~