Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Memo field in combo box
Message
De
26/07/2000 19:04:46
David Fluker
NGIT - Centers For Disease Control
Decatur, Georgie, États-Unis
 
 
À
26/07/2000 18:10:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00396895
Message ID:
00397369
Vues:
12
>>the controlsource of the grid.column3.editbox is customer.comments and readonly=.f. i have the fwg in my combobox interactivechange:-
>>
>>with thisform
>>.grid1.column1.text1.value=this.list(this.listindex,1)
>>.grid1.column2.text1.value=this.list(this.listindex,2)
>>.grid1.column3.edit1.value=this.list(this.listindex,3)
>>.refresh
>>endwith
>>
>>could it be that the SQL doesnot really "open" the memofield since only the word "Memo" is copied to the editbox? tks
>
>No, that indicates that you still have a TextBox as the Column3's CurrentControl. What is the ControlSource of the ComboBox?
>
>I would also update the underlying ControlSource rather than the Value, something like:
>
WITH thisform
>   oGColRef = .Grid1.Columns
>   .lockscreen = .t.
>ENDWITH
>oGColRef(3).CurrentControl = 'edit1'
>WITH this
>  REPLACE (oGColRef(1).text1.ControlSource) WITH .list(.listindex,1), ;
>          (oGColRef(2).text1.ControlSource) WITH .list(.listindex,2), ;
>          (oGColRef(3).edit1.ControlSource) WITH .list(.listindex,3)
>ENDWITH
>=oGColRef.Parent.Refresh()
>thisform.lockscreen = .F.
>oGColRef = NULL
>.refresh()
>
>If the ControlSource for the contained controls is inherited from the Column, then you can use oGColRef(#).ControlSource in the REPLACE. If you're extending the memo in Column3 rather than replacing it, the REPLACE would read:
>
>(oGColRef(3).edit1.ControlSource) WITH CHR(13) + CHR(10) + .list(.listindex,3) ADDITIVE

I agree with Ed that you should replace the values in the underlying control source rather than the values of the text and ecit boxes. Also, be sure you have Column3.Sparse = .F. so all rows of the grid are using the editbox.
David.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform