poing til Stoney og TorbenMelander

http://www.eksperten.dk/spm/169600

Som jeg skrev i det oprindelige spørgsmål, det er alt for mange point
at fyre af på sådan et spørgsmål.
Gem hellere dine point til evt. yderligere spørgsmål.

Dette også for at sikre der ikke går inflation i eksperten/point systemet.

:-)

Stoney

OK er du da tilfreds med de 50 poing du har fået ??

Hej elohim

Jeg er udemærket tilfreds med de 50 point jeg har fået.

Stoney

OK, men du kan få disse hvis du kan fortælle mig hvordan jeg
får en knap indeni i en DBGrid celle, at når der trykkes på den kommer der en under liggende DB frem, hvor man så kan vælge en post fra denne.
Denne post bliver lagt ind i den celle i den DBGrid der blev klikket på.
F.eks. en vare (fra en vare DB) til en Bestillings DB
Jeg har set det i Delphi har en i deres demo programmer som hedder "Mastapp" men jeg kunne ikke finde ud hvordan de havde gjort ;-((

Du højre klikker på dit dbgrid og vælge columnseditor og adder de felter du skal bruge.
Hvis det er dit vare nr felt du vil have en knap i (..) sætter du buttonstyle til cbsEllipsis.
Herefter oprettet du en form med dit varekartotek hvis du ikke har det i forvejen.
PÅ eventen editbuutonklik kalder du din form med varekartoteket.
Lad ondblclick kalde samme procedure. (hvis du også vil kunne dobbeltklikke
og vælge vare).

Jeg har udvidet det eks. jeg lavede til dig tidligere.
I mit eks. er form1 hvor du indtaster vare til kunden.
frmVAREKARTOTEK er formen med mit varekartotek.
------------------------------------------

Her klikkes på ... knappen i gridden
tablen sættes i edit mode og formen med varekartotek vises.

procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
adotable1.edit;
frmVAREKARTOTEK.show;
end;

-------------------------------------------------
Her er jeg på varekatorteks formen
Feltet nr på form1 sættes lig feltet nr på frmVAREKARTOTEK ved dobbelklik.
(Du kan evt. lave en knap og lade samme procedure pege på den.)
Efter dobbeltklik lukkes formen.

procedure TfrmVAREKARTOTEK.DBGrid1DblClick(Sender: TObject);
begin
form1.adotable1.FieldByName('nr').Value := frmVAREKARTOTEK.ADOTable1.fieldbyname('nr').Value;
close;
end;


Stoney

Tak