Datenbankfelder werden in datasource.onchange nicht gefunden

[buyden]

Huh

so aufwendig hatte ich mir das nicht vorgestellt. ich werd das mal durchdenken und testen und meld mich dann nochmal.

erstmal dank an euch.

[buyden]

ich denke so annähernd hab ich verstanden, was du da geschieben hast.
ich hab das jetzt auf mich angepasst und das ganze sieht jetzt so aus:

Delphi-Quellcode:

procedure Tfrmdata.dsauftragDataChange(Sender: TObject; Field: TField);
begin
  //showmessage(inttostr(frmdata.tbstatus.FieldValues['farbe']));
  //frmmain.Panel1.Color:=frmdata.tbstatus.FieldValues['farbe'];

  if Field.FieldName='Status' then
   begin
      Assert(tbstatus.Active);
      if tbstatus.Locate('status', Field.Value,[]) then
      begin
         if tbstatus.FindField('farbe') = nil then
             ShowMessage('Feld farbe nicht vorhanden!'#13#10+
                 tbstatus.FieldList.Text);   // alle vorhandenen Felder anzeigen
         // Suche war erfolgreich, also Farbe übernehmen
         frmmain.Panel1.Color:=tbstatus.FieldByName('farbe').asinteger;

      end
      else
         frmmain.Panel1.Color:=0;
   end;

end;

allerdings bekomme ich am Anfang bei
if Field.FieldName='Status' then ne Zugriffsverletzung.

[shmia]

Zitat von buyden:

allerdings bekomme ich am Anfang bei
if Field.FieldName='Status' then ne Zugriffsverletzung.

Dann muss man noch abfragen, ob Field = nil ist:

Delphi-Quellcode:

if Assigned(Field) then
   if Field.FieldName='Status' then
.......

[buyden]

also mit dem code bekomme ich erstmal keine Fehlermeldung,

Delphi-Quellcode:

procedure Tfrmdata.dsauftragDataChange(Sender: TObject; Field: TField);
begin
if Assigned(Field) then
  if Field.FieldName='Status' then
   begin
      Assert(tbstatus.Active);
      if tbstatus.Locate('status', Field.Value,[]) then
      begin
         {if tbstatus.FindField('farbe') = nil then
             ShowMessage('Feld farbe nicht vorhanden!'#13#10+
                 tbstatus.FieldList.Text);   // alle vorhandenen Felder anzeigen
         // Suche war erfolgreich, also Farbe übernehmen  }
         frmmain.Panel1.Color:=tbstatus.FieldByName('farbe').asinteger;

      end
      else
         frmmain.Panel1.Color:=0;
   end;

end;

allerdings verändert sich bei einer Statusänderung die Panelfarbe auch nicht.
Ich hab das Ganze jetzt spaßenshalber mal in ner anderen Prozedur versucht.
Ich hab ein extra dbedit mit dem Status in der tabelle auftrag verbunden und den folgenden code in dessen onchange-ereignis eingetragen:

Delphi-Quellcode:

procedure Tfrmmain.edstatuscontrolChange(Sender: TObject);
begin
Panel1.Color:=frmdata.tbstatus.fieldbyname('farbe').AsInteger;
end;

Das Ergebnis war das gleiche wie in dem datasouce.onchangedata - "das feld kann nicht gefunden werden".

[buyden]

hat denn jemand ne ahnung, warum der Fehler auch in nem ttable.afterpost-ereignis kommt, da wird ja nun kein field übergeben.
auf andere Felder kann ich in der gleichen Prozedur problemlos zugreifen.

Delphi-Quellcode:

procedure Tfrmdata.tbauftragAfterPost(DataSet: TDataSet);
begin
frmmain.statusbar1.panels[0].text:=inttostr(tbauftrag.RecordCount)+ ' Datensätze';
//frmmain.Panel1.Color:=frmdata.tbstatus.fieldbyname('farbe').AsInteger;
if frmdata.tbauftrag.FieldByName('abgeschlossen').AsInteger=1 then
  frmmain.StatusBar2.Panels[0].Text:= 'Abgeschlossener Auftrag'
else
  frmmain.StatusBar2.Panels[0].Text:= 'Offener Auftrag';
end;

[buyden]

[buyden]

Hat denn keiner ne Idee, wie ich es sonst umsetzen kann, dass bei einer Änderung des Datensatzpointers die Farbe eines Panels verändert wird, wie sie in der Datenbank festgelegt ist??

[buyden]

Hi nochmal,

mittlerweile hab ich das Problem auch selbst gelöst. Offenbar kann man in den Ereignissen einer datasource nur auf die Felder der dazugehörigen Tabelle zugreifen.

ich hab das Ganze jetzt über eine OnChange-Prozedur auf einem DBEdit, das mit der Statustabelle verbunden ist, gelöst - funzt genau wie ich das wollte.



DFN