P
patriot
Unregistered / Unconfirmed
GUEST, unregistred user!
一个循环要1个小时才能执行完，如下面的把一个数据表中的数据载到另以数据表中：
with adotable1 do
begin
open;
first;
while not eof do
begin
with adotable2 do
begin
open;
if not locate('name',edit1.text,[]) then
begin
adotable2.edit;
adotable2.insert;
adotable2.fieldbyname('name').asstring:=adotable1.fieldbyname('name').asstring;
end;
end;
next;
end;
当次循环正在执行时，我点击鼠标响应其他事件总是响应不了，该怎么办？不要让我等到循环结束。。
谢谢大家执教。。
with adotable1 do
begin
open;
first;
while not eof do
begin
with adotable2 do
begin
open;
if not locate('name',edit1.text,[]) then
begin
adotable2.edit;
adotable2.insert;
adotable2.fieldbyname('name').asstring:=adotable1.fieldbyname('name').asstring;
end;
end;
next;
end;
当次循环正在执行时，我点击鼠标响应其他事件总是响应不了，该怎么办？不要让我等到循环结束。。
谢谢大家执教。。
