Paul ...
The crit_form, WindowType - is - set to 1 - Modal.
However, if you look at this code, it calls up TWO forms. First it has - obasic_info.show which is a form object set up from the - DEFINE class xjfs as jfs_form - section of the code. Then when that form is on the screen, a CommandGroup button on it calls up the 2nd form, crit_form, which also has CommandGroup buttons on it.
The way this prg - should - work is that the prg a) shows the first form, b) when the user clicks on its button 11, the c) crit_form is shown, d) when the user clicks on any button on the crit_form, it closes (releases)and e) we drop back to the first form window and the Browse should be shown.
But that doesn't happen.

John
JF Services


>Your browse may not be being ignored, it may be happening in the background of your form and for some reason being cleared before your code returns from the form. Make sure your form is being displayed as a modal form. Check the WindowType property of crit_form.
>
>Good luck,
>Paul
>
>>I can’t figure out just why the BROWSE in the following code, is totally ignored:
>>……………………………………………………………………………………………..
>>SET classlib to main_classes
>>obasic_info=createobject("xjfs")
>>obasic_info.show
>>
>>Release classlib main_classes
>>* ========================================
>>DEFINE class xjfs as jfs_form
>>
>> PROCEDURE commandgroup1.Click
>> DO case
>> CASE this.value=11
>> user_input=""
>> xthe_crit=""
>> xmenu=0
>>
>> * If you put Browse here, it works.
>>
>> DO form crit_form
>>
>> BROWSE && Doesn’t work here.
>> ENDCASE
>> ENDPROC
>>ENDDEFINE
>>……………………………………………………………………………………………..
>>Yet, if you move the BROWSE to a line right before the “DO form crit_form”, the Browse works just fine!
>>
>>The crit_form Form only has 4 textboxes on it and a CommandGroup with several buttons. Each of its buttons has a thisform.release in its Click method code. There is no other code on the crit_form.
>>
>>Any advice would be appreciated.
>>
>>
>>John Fish
>>JF Services