tablename.first ; while not table.eof do begin mxb.append; mxb.filedbyname('字段1').AsString := .... ...... mxb.post; table.next; end;
例如ADOTABLE--DATASOURCE--DBGRID可按楼上的方法 如 ADOQUERY --DATASOURCE--DBGRID 可这样 for x1:=1 to adoquery.recordcount do begin insert mxb .......; adoquery.next; x:=x+1; end next x
while not table.eof do
begin
mxb.append;
mxb.filedbyname('字段1').AsString := ....
......
mxb.post;
table.next;
end;
如 ADOQUERY --DATASOURCE--DBGRID
可这样
for x1:=1 to adoquery.recordcount do
begin
insert mxb .......;
adoquery.next;
x:=x+1;
end
next x