procedure TSALES_RECORD_AUDIT_BETA_FORMDOC.SpeedButtonDELETEClick(Sender: TObject);
var
lDataSet:TCloneDataSet;
begin
lDataSet:=TCloneDataSet.Create(nil);
try
lDataSet.CloneCursor(SELF.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet,false,true,false);
lDataSet.Filter:='MARK=1';
lDataSet.Filtered:=true;
lDataSet.First;
WHILE NOT lDataSet.Eof DO
BEGIN
lDataSet.Edit;
lDataSet.FieldByName('STATUS').AsString:='将删除';
lDataSet.Next;
END;
SELF.DataSetBrokerSALES_RECORD_AUDIT_DT.DataSet.First;
finally
lDataSet.Free;
end;
end;