我有adotable1 adotable2 adotable3 三個資料庫
各有一個資料表
我希望 如果adotable1 的資料 與adotable2 的資料相同時
可以複製到adotanle3 的資料表
下面是我寫的 可是會出現一個錯誤
請問各位大大 我哪裡錯呢


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
adotable1.First;
adotable2.First;
while not adotable1.Eof do
begin
adotable3.Append;
for i := 0 to adotable1.Fields.Count-1 do
begin
if adotable1.Fields[i]=adotable2.Fields[i]then
begin
adotable3.Fields[i]:=adotable2.Fields[i];
end;
adotable3.Post;
adotable1.Next;
adotable2.Next;
adotable3.Next;
adotable3.Close;
adotable3.Open;
end;
end;

end;
end.
錯誤:不能插入-空資料列 資料列需設定-資料行值

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
adotable1.First;
adotable2.First;
while not adotable1.Eof do
begin
adotable3.Append;
for i := 0 to adotable1.Fields.Count-1 do
begin
if adotable1.Fields[i]=adotable2.Fields[i]then
adotable3.Fields[i]:=adotable2.Fields[i]
else
exit;
end;
adotable3.Post;
adotable1.Next;
adotable2.Next;
adotable3.Next;
adotable3.Close;
adotable3.Open;
end;
end;

end;
end.
我加了else 之後就不會再有錯誤 但是始終抓不到相同的複製製到adotable3
不知道哪邊有問題呢

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
is_same: Boolean;
begin
adotable1.First;
adotable2.First;
while not adotable1.Eof do
begin
is_same := True;
adotable3.Append;
for i := 0 to adotable1.Fields.Count-1 do
begin
if adotable1.Fields[i].Value =adotable2.Fields[i].Value then
adotable3.Fields[i].Value :=adotable2.Fields[i].Value
else
begin
is_same := False;
Break;
end;
end;
if is_same then
adotable3.Post
else
adotable3.Cancel;
adotable1.Next;
adotable2.Next;
end;
end;

如果你連自己寫的程式都不知道在作什麼，那就真的不用問了
===================引 用 ann0509 文 章===================
我有adotable1 adotable2 adotable3 三個資料庫
各有一個資料表
我希望 如果adotable1 的資料 與adotable2 的資料相同時
可以複製到adotanle3 的資料表
下面是我寫的 可是會出現一個錯誤
請問各位大大 我哪裡錯呢


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
adotable1.First;
adotable2.First;
while not adotable1.Eof do
begin
adotable3.Append;
for i := 0 to adotable1.Fields.Count-1 do
begin
if adotable1.Fields[i]=adotable2.Fields[i]then
begin
adotable3.Fields[i]:=adotable2.Fields[i];
end;
adotable3.Post;
adotable1.Next;
adotable2.Next;
adotable3.Next;
adotable3.Close;
adotable3.Open;
end;
end;

end;
end.
錯誤:不能插入-空資料列 資料列需設定-資料行值

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

謝謝你的回答


===================引 用 ann0509 文 章===================


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
adotable1.First;
adotable2.First;
while not adotable1.Eof do
begin
adotable3.Append;
for i := 0 to adotable1.Fields.Count-1 do
?begin
?if adotable1.Fields[i]=adotable2.Fields[i]then
??? adotable3.Fields[i]:=adotable2.Fields[i]
??else
?? exit;
end;
?adotable3.Post;
adotable1.Next;
adotable2.Next;
adotable3.Next;
?adotable3.Close;
adotable3.Open;
end;
end;

end;
end.
我加了else 之後就不會再有錯誤 但是始終抓不到相同的複製製到adotable3
不知道哪邊有問題呢