Hi, ich schon wieder.
folgendes Problem:
ich kontrolliere beim verlassen einer Zellen, ob ein Wert eingetragen wurde oder nicht. Wenn der Inhalt leer ist, soll ein Hinweis kommen und die Zelle makiert werden damit dort die Eingabe vorgenommen werden kann.
Das hab ich mir zurechtgebastelt
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| if RxDBGrid1.col=2 then begin lagerdata.ADOEingangQuery.edit; if lagerdata.ADOEingangQuery.FieldByName('Anzahl').AsString = '' then begin MessageDlg('Bitte Anzahl nicht vergessen', mtInformation, [mbOK], 0); RxDBGrid1.SelectedField.AsInteger:=1; end else XDBNavigator1.BtnClick(nbinsert); end; end;
weiss jemand weiter? |