Combobox liaisons

GregP

Bonjour,

J'ai créé un panneau de commande avec 2 combo box dépendant l'une de l'autre. La sélection de la première génère une liste de dates disponible dans la seconde. Or il est possible que plusieurs dates soient identiques et je voudrais les regrouper pour limiter la liste déroulante. Enfin en validant toutes les lignes de la table de données correspondant aux deux paramètres seront sélectionnées. Je bloque sur la partie regroupement des dates identiques et  sélection des données.

En pj ma data table et le morceau de script .

Merci par avance

Script bdd courte.jsl

2019_BDD CAOX_DATA_VOLT test script courte.jmp

txnelson

Here's a solution using pretty much the same methodology as you.

names default to here(1);
dt = Data Table( "2019_BDD CAOX_DATA_VOLT test script courte" );

Summarize( a = By( :Propriétés ) );
Insert Into( a, "<Choix propriété>", 1 );
New Window( "Selection",
	<<Modal,
	H List Box(
		Panel Box( "Choix de la propriété",
			cb1 = Combo Box(
				a,
				<<SetFunction(
					Function( {this},
						selection = this << Get Selected();
						r = dt << Get Rows Where( :Propriétés == (selection) );
						dtPri = New Table("Private", private,
							New column("Date", format("m/d/y",10)),
							addrows(nrows(r))
						);
						
						for(i=1,i<=nrows(dtPri),i++,
							dtPri:Date[i]=dt:Date d'analyse[r[i]]
						);
						summarize(dtPri, propDate=By(:Date));
						close(dtpri, nosave);
						//propDate = :Date d'analyse[r];
						//Insert Into( propDate, "<Choix Date>", 1 );
						cb2 << Set Items( propDate );
					)
				)
			)
		),
		Panel Box( "Choix dans la Date:",
			cb2 = Combo Box(
				{"<Choix Date>"},
				<<SetFunction(
					Function( {this},
						Print( selection, this << Get Selected() )
					)
				)
			)
		)
	)
);