Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#1

DevExpress: Nach SQL Insert den neuen Datensatz fokussieren

  Alt 29. Apr 2022, 10:44
Hallöle...

Ich bräuchte mal eure Hilfe:

SOLL:
Ich möchte per SQL einen Datensatz einfügen. Nach dem Insert soll das Grid aktualisiert werden und die neue "ID" fokussiert werden. Highlight wäre dann.. der Datensatz fokussiert in den sichtbaren Bereich. (ggf. Filter ausblenden)

Alle Varianten, die ich probiert habe, funktionieren nicht... Der Focus, incl. Selection, steht entweder auf dem Ersten Datensatz oder irgendwo...

Beispiel:
Delphi-Quellcode:
procedure TfoBlubb.btnCopyClick(Sender: TObject);
var
  NewID: Integer;
begin
  NewID := FLogic.Copy(Query.FieldByName('ID').AsInteger);
  gtvBlubb.DataController.RefreshExternalData;
  TToolsDevExpress.SelectRecord(gtvAssignment, 'ID', NewID);
  pgcContent.ActivePage := tsLayout;
end;
.
.
.
class function TToolsDevExpress.SelectRecord(View: TcxGridTableView; FieldNameID: string; CurrentID: Integer): Boolean;
var
  I: Integer;
  ColumnIndex: Integer;
begin
  Result := False;
  ColumnIndex := TcxGridDBDataController(View.DataController).GetItemByFieldName(FieldNameID).Index;

  View.DataController.ClearSelection;
  for I := 0 to View.DataController.RecordCount - 1 do
  begin
    if View.DataController.Values[I, ColumnIndex] = CurrentID then
    begin
      View.DataController.SelectRows(I, I);
      View.DataController.FocusedRowIndex := I;
      Result := True;
      if Result then
      begin
        Break;
      end;
    end;
  end;
end;

Was mache ich falsch? Gibt es eine bessere Methode?

Danke...
  Mit Zitat antworten Zitat