with Query4 do begin SQL.Clear ; SQL.Add('select * from TABLE1'); Open; RequestLive :=True; Edit; First; end; 上述语句执行没问题 但: Query4.FieldByName('成本').AsString:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString)); 出错: Query4: Dataset not in edit or insert mode. 我想Query4已置为edit了,为什么还是不行呢,请过来人帮忙了,谢谢了
with Query4 do begin SQL.Clear ; SQL.Add('select * from TABLE1'); Open; RequestLive :=True; Edit; Query4.FieldByName('成本').value:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString)); First; end;
with Query4 do begin SQL.Clear ; SQL.Add('select * from TABLE1'); Open; RequestLive :=True; Edit; Query4.FieldByName('成本').value:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString)); First; end;
begin
SQL.Clear ;
SQL.Add('select * from TABLE1');
Open;
RequestLive :=True;
Edit;
First;
end;
上述语句执行没问题
但:
Query4.FieldByName('成本').AsString:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString));
出错:
Query4: Dataset not in edit or insert mode.
我想Query4已置为edit了,为什么还是不行呢,请过来人帮忙了,谢谢了
table.edit;
table.fieldbyname('name').asstring:=数值;
table.post;
begin
SQL.Clear ;
SQL.Add('select * from TABLE1');
Open;
RequestLive :=True;
Edit;
Query4.FieldByName('成本').value:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString));
First;
end;
begin
SQL.Clear ;
SQL.Add('select * from TABLE1');
Open;
RequestLive :=True;
Edit;
Query4.FieldByName('成本').value:=floattostr(strtofloat(Query4.FieldByName('数量').AsString)*strtofloat(Query2.FieldByName('XF_SUPPUNITCOST').AsString));
First;
end;