DataSetIMO_List2.Close;
中间有SQL语句的
DataSetIMO_List2.Open;
if (DataSetIMO_List2.RecordCount <> 0) then
begin
DataSetIMO_List2.First;
for i := 0 to DataSetIMO_List2.RecordCount-1 do
begin
MOTENGINENO := DataSetIMO_List2.FieldByName ('MOTENGINENO').AsString;
DataSetmaterinfo3.Close;
DataSetmaterinfo3.SQL.Clear;
S_sql1 := 'select * ' + 'from MATERINFO where version_n ='''+ k + '''' +' AND ENGINENO = '+ MOTENGINENO ;
DataSetmaterinfo3.SQL.Text := S_sql1;
DataSetmaterinfo3.Open;
if not (DataSetmaterinfo3.State in
[Business.Data.TDataSetState.dsEdit, Business.Data.TDataSetState.dsInsert]) then DataSetmaterinfo3.Edit;
if()then //根据条件才赋值
DataSetmaterinfo3.FieldByName(matfield).value:=DataSetIMO_List2.FieldByName(sonfield).asstring;
End;
DataSetmaterinfo3.post;
Datasetmaterinfo3.applyupdates;//会报错“正在提交”
DataSetIMO_List2.Next;
end;
// DataSetmaterinfo3.ApplyUpdates;