I see it to. But I get 9214589. My vote is it is a bug.
I use to test VFP 8.0 for the VFPT. And this is bug.
Software Bug. Definition: Any abnormally in software that the user believes should not be there, or software behavior that is found to be unexpected.
We are the software police. It is not our job to judge, just to find the mistakes. It is the software triage team (judges) to determine if it is actually a bug or by design.
P.S. I like the repro code you presented. It is in style of a very good Test Case coding. You should forword this to the VFPT, on their bug web page. They DO watch it.
Greg
>1.- Create an new Form
>2.- Add a Combobox control
>3.- Change DisplayValue to 1
>4.- Save the form
>5.- Open the Form, the DisplayValue value now is 73!!
>6.- At this point there's no way to change the value, only Reseting to Default
>
>
>lcOldSafety = SET("Safety")
>SET SAFETY OFF
>ERASE Combo_test.*
>CREATE FORM Combo_Test NOWAIT
> oForm = _VFP.ActiveForm
> oForm.AddObject("Combo1","ComboBox")
> *** oForm.Combo1.Style = 2
> oForm.Combo1.DisplayValue = 1
>KEYBOARD '{CTRL+W}'
>MODIFY FORM Combo_Test NOWAIT
> oForm = _VFP.ActiveForm
> MESSAGEBOX("The value should be 1 y NOT:"+;
> STR(oForm.Combo1.DisplayValue))
>SET SAFETY &lcOldSafety
>
Greg Reichert