DevExpress cxGridView Daten auslesen

[Alfredo]

Hallo alzaimer,

das ganze soll ein Datenerfassungsprogramm werden. Die Automatik soll nur die
Erfassungarbeit vereinfachen und ein indvidueller Text sollte noch möglich sein.

Gruß
Alfred

[Thomas Horstmann]

Hallo,

das GridView ist mit einem "DataSet" verbunden. Dort gibt es "BeforePost".
An dieser Stelle kann alles mögliche abgefrage/gesetzt werden.
Ggf. kann mit Locate (sehr langsam) oder einem Query (besser) gearbeitet werden
umd Referenzwerte zu holen.

Wichtig ist, dass "ForceRefresh" im DataSet aktiv ist.

Delphi-Quellcode:

procedure TFM_Test_Form.dxMemData1BeforePost(DataSet: TDataSet);
begin
if DataSet.FieldByName('Nummer').AsInteger > 1000 then
  DataSet.FieldByName('Text').AsString := 'OK'
else
  DataSet.FieldByName('Text').AsString := 'Nicht OK' ;
end;

Viele Grüße

[dataspider]

Hi,

es gibt IMHO verschiedene einfache Wege, an den Wert zu kommen.

Mal eine Möglichkeit
GridView.OnEditValueChanged...

Delphi-Quellcode:

procedure TFilterByCodeDemoMainForm.tvCustomersEditValueChanged(Sender:
    TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
Var
  v: Variant;
begin
  // Sender.Controller.EditingController.Edit liefert aktuellen Editor
  // neuer Wert steht immer in EditingValue
  v := Sender.Controller.EditingController.Edit.EditingValue;
  // v hat eigegebenen Wert.
end;

Das ist nur ein Ansatz. Du musst AItem natürlich noch verifizieren oder halt gleich die Evenst von AItem setzen anstatt von GridView.
Das Setzen der neuen Werte kann z.B. über die Columns (GridView.GetColumnByFieldName('FeldName')) erfolgen.

Vielleich hilft es ja weiter.

Cu, Frank

[alzaimar]

Zitat von Alfredo:

Hallo alzaimer,

das ganze soll ein Datenerfassungsprogramm werden. Die Automatik soll nur die
Erfassungarbeit vereinfachen und ein indvidueller Text sollte noch möglich sein.

Gruß
Alfred

Eben. Dafür sind extra angelegte Lookupfelder im Dataset da. Da Du das QuantumGrid verwendest, kannst Du auch eine TcxGridDBColumn mit TcxLookupProperties anlegen und dort die Lookupverknüpfung anlegen. Das Ganze geht ohne jeglichen Code.

[Alfredo]

@Frank

So funktioniert das super:

Delphi-Quellcode:

procedure TForm1.cxGrid1DBTableView1GKTOPropertiesEditValueChanged(Sender: TObject);
begin
edit3 := cxGrid1DbTableView1.Controller.EditingController.Edit.EditingValue;
if edit3 = 4910 then
  begin
  cxGrid1DBTableView1.GetColumnByFieldName('BUCHTEXT').EditValue := 'Porto';
  cxGrid1DBTableView1.GetColumnByFieldName('GKTO').EditValue := edit3;   
  end
end;

Hinweis: der 2. EditValue ist notwendig, weil wohl durch den ersten Befehl der aufrufende Editor geschlossen wird, ohne dass der eingegebene Wert abgespeichert wird.


@alzaimer
Ich werde mir das mit dem Lookup, wegen der zu erwartenden größeren Anzahl an Abfragen, noch anschauen.

Gruß
Alfred

[dataspider]

Hi,

man sollte IMHO:
cxGrid1DbTableView1.Controller.EditingController.Edit.PostEditValue; verwenden (statt der erneuten Zuweisung).

Frank

[uligerhardt]

Zitat von dataspider:

cxGrid1DbTableView1.Controller.EditingController.Edit.PostEditValue;

Mit dem DevEx-Zeug kann man ja tolle Sachen machen, aber diese ganzen Controller gehen mir auf den ****.
Z.B. Edit-Modus programmatisch abwürgen:

Delphi-Quellcode:

    TableView.BeginUpdate;
    try
      TableView.DataController.Cancel;                        // <= hier einer
      TableView.Controller.EditingController.HideEdit(False); // <= hier noch zwei
    finally
      TableView.EndUpdate;
    end;

[Alfredo]

@Frank,

it works.

Wie kommt man denn an das ganze Wissen über diese Editoren?



@Uli

dann mußt Du halt ********.cancel; machen


Gruß
Alfred

[uligerhardt]

Zitat von Alfredo:

dann mußt Du halt ********.cancel; machen

Aua.

[dataspider]

Zitat von Alfredo:

Wie kommt man denn an das ganze Wissen über diese Editoren?

In der Regel finde ich die Lösung immer hier:
DevExpressSupportCenter

Ich nutze die Kompo' s halt schon ein paar Jahre.

Freut mich, dass ich helfen konnte.

Frank