Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Detect memo field data
Message
De
08/11/2012 02:27:55
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01556652
Message ID:
01556680
Vues:
40
>>>my first experience with memo field and am a litte confused. perhaps i should abandon opening up this can of worms.
>>>a couple of questions - my field is called memonote - i am using it to store text data only.
>>>
>>>1) how can i test if there is data in a memofield.
>>>
>>>if memonote # " " doesn't work nor does
>>>n=fsize('memonote')
>>>if n >0
>>>
>>>2. what is the best way to enter data in the memofield
>>>@3, 0 get memonote
>>>read
>>>double click opens the window for data input
>>>is there something more elegant way to do this.
>>>
>>>thanks for any information - help menu is a little short on help for this one.
>>>
>>>k
>>
>>
>>IF NOT EMPTY(MemoNote)
>>   ****
>>ENDIF
>>
>>
>>Better way to edit Memo field is to place EditBox in the form and bind it to this memo.
>thank you Boris
>i came up with this - seems to work ok
>
>
>strtofile(memonote,'m.txt')
>LOCAL oFrm
>
>oFrm= CREATEOBJECT("Note")
>oFrm.Edit1.Value = filetostr('m.txt') 
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS Note AS Form
>
>	ADD OBJECT Edit1 AS EditBox WITH ;
>		Height= 109, ;
>		Left= 36, ;
>		ReadOnly= .f., ;
>		TabIndex= 2, ;
>		Top= 84, ;
>		Width= 289, ;
>		Value= ""
>ENDDEFINE
>Public Event MouseWheel As MouseWheelEventHandler
>
>PROCEDURE Object.MouseWheel
>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>PROCEDURE edit1.MouseWheel
>		LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
>	ENDPROC
>oFrm.hide(1)
>
>
There is no need to save the value of the field to TXT file and then get it back as memory variable:
LOCAL oFrm
oFrm             = CREATEOBJECT("Note")
oFrm.Edit1.Value = AliasName.memonote
oFrm.Show(1)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform