topic Re: select all items in list box with button? in Discussions

select all items in list box with button?

uwe_hiss — Thu, 27 Aug 2015 11:10:48 GMT

Hi,

does anyone know a solution to select all items in a listbox with a [All] button?

New Window( "Select ONE Monthly ", <<Modal,

V List Box(

Text Box("ALL for Baseline"),

mon = List Box(:Stage << get values),

Button Box( "OK", cho = mon << get selected),

)

);

dt_data << Select Where(Contains(cho, :Stage));

Regards and thank you in advance,

Uwe

Re: select all items in list box with button?

pmroz — Thu, 27 Aug 2015 13:05:07 GMT

dt_data = Current Data Table();

mon_list = dt_data:Stage << get values;

New Window( "Select ONE Monthly ", << Modal,

V List Box(

Text Box( "ALL for Baseline" ),

mon = List Box(mon_list),

Button Box( "Select All",

For( i = 1, i <= N Items( mon_list ), i++,

mon << set selected( i )

)

Button Box( "OK", cho = mon << get selected ),

);

dt_data << Select Where( Contains( cho, :Stage ) );

Re: select all items in list box with button?

uwe_hiss — Thu, 27 Aug 2015 13:41:05 GMT

Thanks PMroz ... it works great :)

Re: select all items in list box with button?

pmroz — Thu, 27 Aug 2015 15:40:14 GMT

There's a bug in my code if you have duplicates in the Stage column. A side effect of putting a list into a listbox is that it will only display unique values.

This code will fix that:

Get_unique_values = Function( {in_list}, {Default Local},

tmp = [=> 0];

Insert Into( tmp, in_list );

tmp << get keys;

);

dt_data = Current Data Table();

mon_list = get_unique_values( dt_data:Stage << get values );

New Window( "Select ONE Monthly ", <<Modal,

V List Box(

Text Box( "ALL for Baseline" ),

mon = List Box( mon_list ),

Button Box( "Select All",

For( i = 1, i <= N Items( mon_list ), i++,

mon << set selected( i )

)

Button Box( "OK", cho = mon << get selected ),

);

dt_data << Select Where( Contains( cho, :Stage ) );

Re: select all items in list box with button?

uwe_hiss — Fri, 28 Aug 2015 06:24:27 GMT

Hi Peter,

Thank you for fix it, but I didn't notice this problem or bug.

I have many duplicates in the column Stage, the Listbox displays only unique values.

How can I exclude a certain value like "Baseline"?

At best case, this should not appear in the listbox.

Regards

Uwe

Update:

mon_list = dt_data:Stage << get values;

for (j = N Items (mon_list), j > 0, j--,

if (mon_list == "Baseline",remove from (mon_list, j,1))

);

Re: select all items in list box with button?

pmroz — Fri, 28 Aug 2015 13:18:07 GMT

mon_list = get_unique_values( dt_data:Stage << get values );

bindex = contains(mon_list, "Baseline");

if (bindex > 0,

remove from(mon_list, bindex);

);

Re: select all items in list box with button?

uwe_hiss — Mon, 31 Aug 2015 06:15:04 GMT

Hi Peter,

Thank you for the solutiuon.

Unfortunately it doesn't work for me, maybe it's up to v10

Regards,

Uwe