procedure
TForm16
.
Button2Click(Sender: TObject);
var
i:
integer
;
begin
Datamodule3
.
ADOTable1
.
First;
Datamodule3
.
ADOTable6
.
Insert;
for
i:=
0
to
Datamodule3
.
ADOTable1
.
RecordCount-
1
do
begin
Datamodule3
.
ADOTable6
.
FieldByName(
'AAA'
).AsString:=Datamodule3
.
ADOTable1
.
FieldByName(
'AAA'
).AsString;
Datamodule3
.
ADOTable6
.
FieldByName(
'BBB'
).AsFloat:=Datamodule3
.
ADOTable1
.
FieldByName(
'BBB'
).AsFloat;
Datamodule3
.
ADOTable6
.
FieldByName(
'CCC'
).AsDateTime:=Datamodule3
.
ADOTable1
.
FieldByName(
'CCC'
).AsDateTime;
Datamodule3
.
ADOTable6
.
Next;
end
;
end
;
[/DELPHI]
Не заработало... Скопировало только первую строку. Внес изменения...
[DELPHI]
procedure
TForm16
.
Button2Click(Sender: TObject);
var
i:
integer
;
begin
Datamodule3
.
ADOTable1
.
First;
for
i:=
0
to
Datamodule3
.
ADOTable1
.
RecordCount-
1
do
begin
Datamodule3
.
ADOTable6
.
Insert;
Datamodule3
.
ADOTable6
.
FieldByName(
'AAA'
).AsString:=Datamodule3
.
ADOTable1
.
FieldByName(
'AAA'
).AsString;
Datamodule3
.
ADOTable6
.
FieldByName(
'BBB'
).AsFloat:=Datamodule3
.
ADOTable1
.
FieldByName(
'BBB'
).AsFloat;
Datamodule3
.
ADOTable6
.
FieldByName(
'CCC'
).AsDateTime:=Datamodule3
.
ADOTable1
.
FieldByName(
'CCC'
).AsDateTime;
Datamodule3
.
ADOTable6
.
Next;
end
;
end
;
[/DELPHI]
Не заработало... Скопировало только первую строку но три раза (в ADOTable1 всего
3
записи). Внес изменения...
[DELPHI]
procedure
TForm16
.
Button2Click(Sender: TObject);
var
i:
integer
;
begin
Datamodule3
.
ADOTable1
.
First;
for
i:=
0
to
Datamodule3
.
ADOTable1
.
RecordCount-
1
do
begin
Datamodule3
.
ADOTable6
.
Insert;
Datamodule3
.
ADOTable6
.
FieldByName(
'AAA'
).AsString:=Datamodule3
.
ADOTable1
.
FieldByName(
'AAA'
).AsString;
Datamodule3
.
ADOTable6
.
FieldByName(
'BBB'
).AsFloat:=Datamodule3
.
ADOTable1
.
FieldByName(
'BBB'
).AsFloat;
Datamodule3
.
ADOTable6
.
FieldByName(
'CCC'
).AsDateTime:=Datamodule3
.
ADOTable1
.
FieldByName(
'CCC'
).AsDateTime;
Datamodule3
.
ADOTable6
.
Next;
end
;
end
;