dataset not in edit or insert mode用的是ClientDataSet 急!!!!!
代码如下:用的是ClientDataSet 急!!!!!
if cdsDetail.IsEmpty then
begin
sqlstr:='select QBH,FS,label from P_JndaM';
with qryTemp do
begin
close;
sql.Clear;
sql.Add(sqlstr);
open;
//cdsDetail.DisableControls;
while ( not qryTemp.Eof) do
begin
//cdsDetail.First;
cdsDetail.Edit;
cdsDetail.FieldByName('QBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr1').AsBoolean:=False;
cdsDetail.FieldByName('KQBH').AsString:=qryTemp.FieldByName('QBH').AsString;
cdsDetail.FieldByName('Statr2').AsBoolean:=False;
cdsDetail.FieldByName('FS').AsString:=qryTemp.FieldByName('FS').AsString;
cdsDetail.FieldByName('label').AsString:=qryTemp.FieldByName('label').AsString;
cdsDetail.Post;
qryTemp.Next;
end;
//cdsDetail.EnableControls;
end;
end;