Micheal:
At the risk of beating this to death...here is another example when the movered (is this a word <g>) listbox is written
to a table. There is logic on the save button to prevent this code if the listbox is empty.
select s_list
for i = 1 to thisform.list1.listcount
scatter memvar blank
m.l_playerid = int(val(thisform.list1.list(i,3)))
m.l_list_pos = int(val(thisform.list1.list(i,2)))
m.l_seq_num = gnNext_list
do case
case gbFrom_load_selection &&from cmbList combobox or forced true on save
m.l_date = gdHold_date_created
m.l_last_upd = date()
do case
case gbHold_send_it &&true means it was sent so we need to edit now
if thisform.chkPending.value then
m.l_send_it = .t.
m.l_update = "E"
else
m.l_send_it = .t.
m.l_update = "P"
endif
otherwise &&false means never sent so keep the "A" flag to
treat as add
if thisform.chkPending.value then
m.l_send_it = .f.
m.l_update = "A"
else
m.l_send_it = .f.
m.l_update = "P"
endif
endcase
otherwise
m.l_date = date()
m.l_last_upd = date()
m.l_send_it = .f.
if thisform.chkPending.value then
m.l_update = "A"
else
m.l_update = "P"
endif
endcase
m.l_last_mod = .t.
m.l_here = .t.
insert into s_list from memvar
endfor
Regards,
Jack Skelley
MB Software Solutions wrote:
Jack Skelley wrote:
Micheal:
I use listboxes with movers all the time:
To jog your memory and/or creative juices here is a code sample of
what I have in the interactive change method to re-set the order of a
table displayed in a grid.
Thanks, Jack. I believe I've got it now!
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
