Moin...
Update:
Heureka...ich habs.
Ich der Spalte "F1" (unsichtbar) eingeben, View geht auf, Markierung steht da wo sie sein soll...siehen Bild.
Problem:
Im Original wurde die Datenmenge immer wieder neu erzeugt. Nun habe die Datenmenge (DataSet) nur einmal erzeugt. Im OnPopup wird nur das
SQL getauscht.
Delphi-Quellcode:
procedure TdmRepositories.rpiArticlePropertiesInitPopup(Sender: TObject); //umbenannt
begin
DMLUP.LoadArticle;
TToolsDevExpress.ExpandLevel(TcxGridTableView(rpiArticle.Properties.View), 0, True);
end;
...
procedure TDMLUP.LoadArticle;
begin
if not Assigned(dsReproPart.DataSet) then
begin
dsReproPart.DataSet := FDatabase.CreateQuery;
end;
FDatabase.FilllDataSetRepositoryPart(TFDQuery(dsReproPart.DataSet), FArticleFavorite, FReceiptAddress);
end;
...
procedure TDatabase.FilllDataSetRepositoryPart(Qry: TFDQuery; Favorite: Boolean; ReceiptAddress: string);
begin
Qry.SQL.Text := GetSQLByName('REPO_CHOICE_ARTICLE_ALL');
Qry.ParamByName('ADR').AsString := ReceiptAddress;
if Favorite then
begin
Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_FAVORITE'));
end;
Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_WHERE'));
Qry.SQL.Add(GetSQLByName('REPO_CHOICE_ARTICLE_ORDER'));
Qry.ParamByName('UID').AsInteger := FPreferences.CurrentUser.ID;
Qry.Open;
end;
...Danke fürs Zuhören.