账号 日期 收入 支出 余额
上月结余 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值?
假定原表(日记表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