insert text into memo field

[Duane Pederson]

Well I'm at it again

I hope I can type this so it's understandable.

I'm using a 'get records from external table' script and populating a multiselect xdialog box with it, ordering on the field chr value. The xdialog box and contents look good, all in order.
Then I'm using an 'insert text into memo' script with a few stratigically placed crlf()'s to make a list in a memo field.
Everything works just fine except for 1 small point. The inserted text items are in a random order. Not alpha, not external table order, not selected order, random. On selecting the same items numerous times during testing, it wasn't the same each time.
On displaying the script's multi select text's variable alongside the inserted text's memo field, they were the same, so it's going random during the 'get records' part, or in between the two scripts.
I ordered the 'get records' on the desired field, and also put a new field into the table with chr 01 to 20, kind of like rec number, and sorted on that. The multiselect list always looked as it should but the order output of all this - insert text - never made sense.

What should I be looking at?

Thanks
Duane

[Selwyn Rabins]

RE: insert text into memo field

the multi-select text box always puts the value that has focus at the top of the list.

so if you have the following items selected

red
green
blue
yellow

but yellow is the value with focus, then the selected list is actually

yellow
red
green
blue


you can use a small amount of xbasic to transform this list into its 'natural' order. i.e. the same order as the displayed list.

for example:

say that the list of all values is 'list_all'
the list of selected value is 'list_selected'

then

list1 = word_subtract(list_all,list_selected,crlf())
list_selected = word_subtract(list_all,list1,crlf())

[Duane Pederson]

RE: insert text into memo field

Thank you for the quick response

I have tried adding your code to my code and now I have a blank entry, not the text from the crlf list. My static text I have in the code goes in, so I must not be doing your code right.

Will keep trying.

Thanks again
Duane

[Selwyn Rabins]

RE: insert text into memo field






New Page 2




Here is a code example that works:
list_all = ""%a%
red
green
yellow
blue
orange
%a%
ui_dlg_box("test",""%dlg%

[%E%.100,10selected^#list_all!selected_changed];

selected list - before rearranging;
[%m%.100,5selected];

selected list - after rearranging;
[%m%.100,5selected2];


%dlg%,""%code%

if a_dlg_button = "selected_changed" then
a_dlg_button = ""
dim list1 as c
list1 = word_subtract(list_all,selected,crlf())
selected2 = word_subtract(list_all,list1,crlf())
end if
%code%)

[Duane Pederson]

RE: insert text into memo field

Thank you

Your code works as advertized.
I need some time to figure out how to amalgamate that into my stuff. It's not that obvious to me.

Thanks again
Duane