At lave en liste

Det er da gjort før. Hvis du er ligeglad med rækkefølgen, så er ADD nemt.

En grundlæggende idé er måske at vedligeholde listen i ét felt og vise elementerne via CFD-felter. Separér kolonneelementerne med f.eks. "¤".

Når brugeren skal DEL eller EDIT skal du udpege det element som skal slettes/redigeres. Det gør jeg normal med kode der ligner nedenstående. Det er skrevet ud fra hukommelsen og ikke komplet, men jeg håber du kan se idéen med det.


REM { SLET } ;
_list := FeltDerIndeholderListe;
_sep := "¤";
_choicelist := @Left(_list);
_default := @Subset(_choicelist; 1);
_choice := @Prompt([OKCancelList]:[NoSort]; "Slet element"; "Angiv det element som skal slettes"; _default; _choicelist);
_num := @Member(_choice; _choicelist);
_max := @Elements(_list);
_before := @If(_num = 1; ""; @Subset(_list; _num-1));
_after := @If(_num = _max; ""; @Subset(_list; _max-_num));
_newlist := @Trim(_before : _after);
FIELD FeltDerIndeholderListe := _newlist;

//Jörg

Ok - jeg kan godt se det smarte i at have det hele i et felt og så vise det i CFD-felter, men du siger at ADD er nemt!

Jeg skal vel lave en lille dialogform, med de værdier jeg ønsker udfyldt. Den skal så composes når jeg trykker ADD. Men hvordan får jeg værdierne med over i mit listefelt på hovedformen??

Du skal have et modtagerfelt på formularen, som kommer til at indeholde de redigerede værdier, f.eks. "editFields".
@Dialogbox kan kaldes med en variabel der ikke tillader nye felter på formularen. Dialogboxformularen har f.eks. 3 felter, "f1", "f2", "f3" + computed feltet "editFields". Formlen er skal være:

s := "¤";
F1 +s+ F2 +s+ F3

Formlen i ADD knappen skal være noget i stil med:
@DialogBox( "editDineFelter"; [parametre]);
_list := FeltDerIndeholderListe;
FIELD FeltDerIndeholderListe := @Trim(_list : editFields);


Pas på med brugen af @Trim. Hvis dine felter må indeholde blanke elementer eller flere mellemrum vil de blive fjernet med @Trim.

ok - det opklarede vist lidt for mig - kaster mig ud i det!

Det virker rimeligt! Jeg kan godt sætte en linie ind - men når vil tilføje en til, overskriver den bare den første linie????

Kode på ADD-knappen:
@DialogBox( ".SETravelSheetDialog1"; [AutoHorzFit] : [AutoVertFit];Kvitton);
_list := FeltDerIndeholderListe;
FIELD FeltDerIndeholderListe := @Trim(_list : editFields);

Hov - ændrede lige lidt på koden!
@DialogBox( ".SETravelSheetDialog1"; [AutoHorzFit] : [AutoVertFit];Kvitton);
_list := TList;
FIELD TList := @Trim(_list : editFields);

Nu kan jeg godt sætte flere linier ind, men hver linie bliver sat ind 2 gange!

Hvordan får jeg så vist værdierne i mit felt??
jeg bruger
@left(TList,"¤")ósv, men hvordan får jeg næste linie ind???

har nu også fået fjernet dobbeltindsætning, men kan stadig ikke få vist flere værdier i feltet!!! :-(

uha så er jeg tæt på mål! Nu virker det stort set.

Lige en ting der stadig driller: Når jeg trykker på ADD anden gang, så er den lille dialogboks udfyldt med det jeg tastede ind første gang - hvordan clearer jeg det???

@DialogBox skulle kaldes med [NoNewFields] (eller lignende)
Det var det jeg mente med "variabel der ikke tillader nye felter på formularen", jeg kunne blot ikke huske hvad den hed. En anden go' parameter er [SizeToTable].

Men nu er skaden sket vedr dine indtastningsfelter på dit dokument. Slet evt. felterne med @DeleteField.

hhmmmm - hvor præcis skal jeg bruge @DeleteField. Jeg kan ikke rigtig få det til at virke.

Har kigget i hjælpen, men kan ikke lige se hvad NoNEwFields kunne hjælpe. Det er jo fra hoveddokumentet den henter data og viser dem på dialogboxen!!

Hvis jeg trykker på Cancel, sætter den sært nok også data ind i listen!

@DialogBox( ".SETravelSheetDialog1"; [AutoHorzFit] : [AutoVertFit]:[SizeToTable];Kvitton);
_list := TList;
FIELD TList := @Trim(_list : editFields);
@Command( [ViewRefreshFields] )

Vedr. [NoNewFields], så er dine indtastningsfelter fra dialogboxen blevet overført tilbage til hoveddokumentet. Når du derefter kalder dialogboxen igen, så bliver felterne overført derop igen.

Ved at anvende [NoNewFields] forhindrer du, at midlertidige felter, som indtastningsfelterne eller beregningsfelter, bliveroverført tilbage til hoveddokumentet.

Hvis du ikke anvender [NoNewFields], så kan du simulere dette ved at anvende @DeleteField. Koden nedenfor viser begge metoder

FIELD indtastning1 := @DeleteField;
FIELD indtastning2 := @DeleteField;
FIELD indtastning3 := @DeleteField;
FIELD indtastning4 := @DeleteField;
@DialogBox( ".SETravelSheetDialog1"; [AutoHorzFit] : [AutoVertFit]:[SizeToTable]: [NoNewFields];Kvitton);
_list := TList;
FIELD TList := @Trim(_list : editFields);
@Command( [ViewRefreshFields] )