怎么从第四行开始插入数据???model_1中已经有三个字段,充满数据,MA和Ot里没有数据,要从第四行开始插入数据,直到倒数第四行。(前三行和后三行为空),有人提示用update,但我不知道怎么写在delphi里,我要插入的记录是运行时计算出来的数组。在按下button后,要把这两个数组插入MA和Ot中。 with ADOQuery1 do
begin
Active:=False;
Close;
SQL.Clear;
SQL.Text:='select * from model_1';
adotable1.close;
adotable1.tablename := 'model_1';
adotable1.open;//这段没问题了。
Open;
First;
for i:=1 to adoquery1.RecordCount-3 do //问题在这段。出来的结果不是我所需要的。
// 数组ma和ot比记录号少六个
begin //字段ma和ot的前三行和后三行为空。
if i in [1..3] then //我把问题复杂化了。但updat语句怎么写呢?
adotable1.next
else
ADOTable1.Open;
ADOTable1.Edit;
ADOTable1.FieldByName('MA').AsFloat:=ma[i-3];
ADOTable1.FieldByName('Ot').AsFloat:=ot[i-3];
ADOTable1.Post;
adotable1.next;
end;
end;
begin
Active:=False;
Close;
SQL.Clear;
SQL.Text:='select * from model_1';
adotable1.close;
adotable1.tablename := 'model_1';
adotable1.open;//这段没问题了。
Open;
First;
for i:=1 to adoquery1.RecordCount-3 do //问题在这段。出来的结果不是我所需要的。
// 数组ma和ot比记录号少六个
begin //字段ma和ot的前三行和后三行为空。
if i in [1..3] then //我把问题复杂化了。但updat语句怎么写呢?
adotable1.next
else
ADOTable1.Open;
ADOTable1.Edit;
ADOTable1.FieldByName('MA').AsFloat:=ma[i-3];
ADOTable1.FieldByName('Ot').AsFloat:=ot[i-3];
ADOTable1.Post;
adotable1.next;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货