Hallo zusammen,
habe ein ganz profanes Problemchen.
Habe eine kleine AdressenDB in MSAccess. Zeige nun über TADOQuery, DataSource und einem DBGrid die Daten an. In der letzten Spalte steht das Geschlecht (m/f). Diese Spalte prüfe ich beim ColExit auf Inhalt = f oder m.
Nun ist es so, daß immer wieder der Wert '' zurückgegeben wird.
Meine Frage: Warum?
Habe hier ein bischen Codefragmente:
Delphi-Quellcode:
procedure TFrmAddrList.DGdAddrListColExit(Sender: TObject);
var myDate : TDate;
myStr : String;
begin
if (DSrcAddrList.State = dsEdit) or (DSrcAddrList.State = dsInsert) then begin
//Geschlecht prüfen
if (DGdAddrList.SelectedIndex = 6) then begin
myStr := LowerCase( DSrcAddrList.DataSet.FieldByName( 'Gender').AsString);
if (myStr = 'f') or (myStr = 'm') then begin
DSrcAddrList.DataSet.FieldByName( 'Gender').AsString := MyStr;
end else begin
Application.MessageBox( 'Ein Mensch kann nur (m)ann oder (f)rau sein. Bitte korrigieren!', 'He Du', MB_OK);
end;
end;
end;
end;
Gruß
Frank
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]