Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Many operations at one textbox
Message
De
25/02/2006 08:41:37
 
 
À
25/02/2006 08:24:23
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9
Database:
Visual FoxPro
Divers
Thread ID:
01099140
Message ID:
01099186
Vues:
21
hi,
thank you,
what you ask me to do, need profitinal (expriance) people like you,
not like me :)
have anice time.

>You can use five different commandbuttons.
>
>To make this a kind of "template" (model) for many forms, you should use inheritance: create a class with the five buttons, create forms based on that class.
>
>>hi,
>>thank you,
>>i mean 5 commands at one for as command1 for addnew record,comaand2 for edit....etc,
>>
>>
>>>Did I understand correctly, you want to have five different commands in a single textbox?
>>>
>>>That could be done through a popup (right-click) menu.
>>>
>>>>hi all,
>>>>any idea, help
>>>>
>>>>as wizard but not via wizard.
>>>>
>>>>i need to make addnew record,edit record,delete record,query and report
>>>>
>>>>at one form via 5 commands,
>>>>
>>>>is there away to put all code at thisform.text1.value ,
>>>>
>>>>this code under for add new via command1 button
>>>>
>>>>m.storeid=thisform.text1.Value
>>>>m.description=thisform.text2.Value
>>>>LOCATE FOR m.storeid=store.storeid
>>>>
>>>>IF FOUND() OR m.storeid=SPACE(10)
>>>>         =MESSAGEBOX("FOUND/ YOU MUST FILL ")
>>>>thisform.text1.setfocus
>>>>ELSE
>>>>
>>>>APPEND BLANK
>>>>GATHER memvar
>>>>
>>>> for each oCtl in THISForm.Controls
>>>>      if lower(oCtl.BaseClass) = "textbox"
>>>>                    oCtl.Value = ''
>>>>      endif
>>>>endfor
>>>>ENDIF
>>>>thisform.refresh
>>>>
>>>>
>>>>thanks.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform