Ik heb een database met een hoop char velden, die alleen 'J' of 'N' hebben als waarde. Nu worden deze velden getoond met TDBText componenten.
Met een OnGetText event wil ik de tekst formateren op deze manier:
Op zich ziet dat er helemaal niet spannend uit. Maar er gebeurt niets. Als ik een break erop zet, wordt deze niet uitgevoerd. De tabel wordt wel geopend. Dat heb ik zelfs gechecked in de AfterOpen event. Er gebeurt gewoon iets.delphi Code:
procedure TDMVerkopen.VerkoopordersfactuurgefactureerdGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if sender.AsString = 'J' then text := 'Ja' else text := 'Nee'; end;
Eerst dacht ik dat het kwam, doordat er geen records aanwezig waren. Maar als dat het geval is, dan staat de dataset toch op een lege record, waardoor OnGetSet toch nog wordt uitgevoerd?
Maar om zeker te weten heb ik alsnog in een browser een record aangemaakt. Ondanks alles wordt de OnGetEvent niet uitgevoerd.
1. Is dit een bug?
2. Doe ik het verkeerd?
3. Werkt de OnGetSet event ook als er geen records zijn?
Ik hoopte met iets simpels toch informatie te tonen op de juiste manier.
Bookmarks