ProgressBar问题？在线等。

[phide]

我想把一个表的记录复制到另一个表中，想利用progressbar显示复制的进度，如何处理?

[dejiang]

for i:=1 to q1.recordcount do
begin
if i<>0 then progressbar1.Position:= trunc((i/q1.recordcount)*100);
q2.insert;
q2.fields[0].value:=q1.fields[0].value;
...
q2.post;
q1.next;
end;

[bee2518]

设计状态设置MinValue,MaxValue,Step,Positioin

运行时可以直接设置Position或者调用Step()函数

MaxValue := DataSet.RecordCount;

while not DataSet.Eof do
begin
....
Next;
progressbar.Positioin := progressbar.Positioin + 1;
....
end;
其他自己写吧

[phide]

非常感谢各位的帮助。