Multi-select List Box Problem Help Needed

[Alan Lucas]

In the attached zip I want to multi-select records using Xdialog multi-select list box. I can select a single record from the list and preview the report, but, not multiple records.

I want to use the multi-selection option as this provides a larger list to view rather than the "prompt at runtime" option which shows a limited number of records in the drop down list.

I searched the forum and found many references to the xdialog multi-select subject but not one the is specific to my situation.

Many thanks

Alan.

[Keith Hubert]

RE: Multi-select List Box Problem Help Needed

Alan,

Try this and let us know if it does the job. Copy into a new code in Alphasports.

Keith Hubert
London

auto_list_cities = table.external_record_content_get("customer","Bill_city","Bill_city","unique_key_value()")
temp_count = w_count(auto_list_cities,crlf())
DIM a_cities[temp_count] as c
a_cities.initialize(auto_list_cities)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Print Report",
{endregion};
%dlg%)

if varc_result = "OK" .and. cities "" then
filter = alltrim(cities)
filter = *for_each(x,"bill_city = " + quote(x), filter)
filter = alltrim(filter)
filter = stritran(filter,crlf()," .or. ")
report.preview("Customer List",filter)
end if

[Alan Lucas]

RE: Multi-select List Box Problem Help Needed

Keith,

Thanks for your response but what I forgot to state is that 99% of my application is using Action Scripting and I would like to resolve this problem using Action Scripting as designed in my sample zip.

I have not tackled xbasic so it is all Chinese to me!

Thnaks

Alan

[Alan Lucas]

RE: Multi-select List Box Problem Help Needed

Keith,

Copied your script to the OnPush for the button but had error message on Script line 5 could not find the data.

alan

[Keith Hubert]

RE: Multi-select List Box Problem Help Needed

Alan,

This is just a dialog box that is multi select. As it is already built all you need to change is the table names, field names and report names. All of these are very easy to identify in the script. As you go through it and recognise those elements soon you will be able to understand the rest of it. Then it will become less like Chinese and more like a practical tool. Give it a try.

Keith Hubert
London.

[Keith Hubert]

RE: Multi-select List Box Problem Help Needed

Alan,

Here is another one that is almost the same but you can see better what has been selected. Just copy and paste put this onto a new xbasic code and press Run before you save it. It does work, promise.

Keith Hubert
London.



'Date Created: 21-Oct-2002 09:24:47 AM
'Last Updated: 16-Jan-2003 03:58:12 PM
'Created By :Selwyn Rabins
'Updated By :Keith Hubert
DIM SHARED a_selected[100] as C
DIM SHARED varC_result as C

auto_list_cities = table.external_record_content_get("customer","Bill_city","Bill_city","unique_key_value()")
temp_count = w_count(auto_list_cities,crlf())
DIM a_cities[temp_count] as c
a_cities.initialize(auto_list_cities)
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Print Report",
{endregion};
%dlg%, "" then
filter = alltrim(cities)
filter = *for_each(x,"bill_city = " + quote(x), filter)
filter = alltrim(filter)
filter = stritran(filter,crlf()," .or. ")
report.preview("Customer List",filter)
end if

[Alan Lucas]

RE: Multi-select List Box Problem Help Needed

Keith,

Many thanks, works perfectly. Designed xdialog box for the start and end dates in Action Scripting then converted that to xbasic and then copied your script after the date reange script, changed data to my tables etc. and bingo, fantastic!

However, would still like to know why this could not be done in Action Scripting only.

Happy in rainy Florida

Alan