十豆三请进

xiaoiqaowo 2008-12-02 10:01:08

记录号姓名
001 王三
002 越我
003 划划
004 水电
005 大震

记录号年度分数
001 1999/01/01 0
001 2000/01/01 0
001 2001/01/01 0
001 2002/01/01 0
001 2003/01/01 0
001 2004/01/01 0
001 2005/01/01 0
002 1999/01/01 100
002 2000/01/01 0
002 2001/01/01 0
002 2002/01/01 100
002 2003/01/01 0
002 2004/01/01 0
002 2005/01/01 100
003 1999/01/01 0
003 2000/01/01 0
003 2001/01/01 0
003 2002/01/01 0

怎么样将004.005添加到B中呢最后的结果里
记录号年度分数
001 1999/01/01 0
001 2000/01/01 0
001 2001/01/01 0
001 2002/01/01 0
001 2003/01/01 0
001 2004/01/01 0
001 2005/01/01 0
002 1999/01/01 100
002 2000/01/01 0
002 2001/01/01 0
002 2002/01/01 100
002 2003/01/01 0
002 2004/01/01 0
002 2005/01/01 100
003 1999/01/01 0
003 2000/01/01 0
003 2001/01/01 0
003 2002/01/01 0
004 2006/01/01 0
005 2000/01/01 0
追加到表B尾部

...全文

85 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

十豆三 2008-12-05

打赏
举报

Select 记录号 Into Cursor cT1 From 表A Where 记录号 Not In (Select Distinct 记录号 From 表B) Order By 记录号

Select cT1

Scan

	For lnI=0 To 5

		Insert Into 表B (记录号,年度,分数) Values (cT1.记录号,Date(2000+lnI,1,1),0)

	Endfor

Endscan

十豆三 2008-12-04

打赏
举报

[Quote=引用 8 楼 xiaoiqaowo 的回复:]
年份从2000年到2005年
004 2000/01/01 0
004 2001/01/01 0
004 2002/01/01 0
004 2003/01/01 0
004 2004/01/01 0
004 2005/01/01 0
005 2000/01/01 0
005 2001/01/01 0
005 2002/01/01 0
005 2003/01/01 0
005 2004/01/01 0
005 2005/01/01 0
[/Quote]

我还没有看出来你的下面红色部分怎么得来的。
004 2006/01/01 0
005 2000/01/01 0

xiaoiqaowo 2008-12-04

打赏
举报

年份从2000年到2005年
004 2000/01/01 0
004 2001/01/01 0
004 2002/01/01 0
004 2003/01/01 0
004 2004/01/01 0
004 2005/01/01 0
005 2000/01/01 0
005 2001/01/01 0
005 2002/01/01 0
005 2003/01/01 0
005 2004/01/01 0
005 2005/01/01 0

要求表A中的每一条记录。。在表B中都有2000年到2005年
表A中的一条记录对应的表B中的多条记录

十豆三 2008-12-03

打赏
举报

004 2006/01/01 0
005 2000/01/01 0

年份哪来的，又不一样

华夏小卒 2008-12-03

打赏
举报

004 2006/01/01 0
005 2000/01/01 0

年份哪来的，又不一样，只能分步insert

insert into B VALUE('004',{^2006-01-01},0)
insert into B VALUE('005',{^2000-01-01},0)

bushlin163 2008-12-03

打赏
举报

IF NOT USED(B)
USE B
ENDIF
INSERT INTO TABEL B(记录号,年度,分数) VALUES("004",{^2006-01-01},0)
INSERT INTO TABLE B(记录号,年度,分数) VALUES("005",{^2006-01-01},0)

bushlin163 2008-12-03

打赏
举报

IF NOT USED(B)
USE B
ENDIF
INSERT INTO TABEL B(记录号,年度,分数) VALUES("004",{^2006-01-01},0)
INSERT INTO TABLE B(记录号,年度,分数) VALUES("005",{^2006-01-01},0)

tszsc 2008-12-03

打赏
举报

sele 记录号 from b into cursor mycursor dist &&选取b表中不重复的记录
sele a
go top
do while not eof()
sele mycursor
loca for alltrim(mycursor.记录号)=alltrim(a.记录号)
if !found()
sele b
appe blank
repl b.记录号 with a.记录号,b.年度 with ctod("日期字符串"),b.分数 with 分数实际值
endif
sele a
skip
enddo

xiaoiqaowo 2008-12-03