数据表中记录复制问题。(100分)

S

smoyhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #1

有两个Paradox数据表,Table1为空表,其构结如下：
字段 类型
1.序号 A
2.进口料件 A
3.成品1单耗率 N
4.成品2单耗率 N

Table2中有记录,其结构如下:
字段 类型
1.序号 A
2.进口料件 A
3.数量 N
如何将表Table2中的中所有记录的中"序号"和"进口料件"的字段值复制到空表Table1中?

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #2

insert into Table1(序号, 进口料件) select (序号, 进口料件) from Table2

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #3

结束问题了。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #4

更正一下：
insert into Table1(序号, 进口料件) select 序号, 进口料件 from Table2
后面是不用括号的了。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
table2.open;
table2.first;
table1.open;
table1.first;
with table2 do begin
while not eof do begin
table1.append;
table1.edit;
for i := 0 to 1 do
table1.Fields.AsString := Fields.AsString;
next;
end;
end;
table1.post;
// table1.close;
end;

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #6

table1.open;
with talble2 do
begin
open;
while not eof do
begin
table1.append;
table1.fieldbyname('序号').asstring := fieldbyname('序号').asstring;
table1.fieldbyname('进口料件').asstring := fieldbyname('进口料件').asstring;
table1.post;
next;
end;
end;
table1.close;

 

X

xmhch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #7

xianjun 的方法正确，不要用数据控件，太麻烦了，而且效率不高。

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-23

• #8

是啊，sql语句真是强大啊，要怎样就怎样啊！

 

S

smoyhy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-28

• #9

多谢！