Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Mouse Entry based on table info
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01472749
Message ID:
01472758
Vues:
75
This message has been marked as the solution to the initial question of the thread.
>I have a form that has a text box to display an entered code. Simple digit 1-7 Each digit has a short text meaning.
>I created mouseenter code to open a Wait window to show what each code means.
>
>WAIT "Option 1 = Make into OER AR"+CHR(13)+;
>	"Option 2 = OE Coord. Use Only"+CHR(13)+;
>	"Option 3 = Not Applicable"+CHR(13)+;
>	"Option 4 = For Information Only"+CHR(13)+;
>	"Option 5 = Previous AR"+CHR(13)+;
>	"Option 6 = REEF Needed"+CHR(13)+;
>	"Option 7 = Preliminary" WINDOW AT MROW(), MCOL() NOWAIT NOCLEAR
>
>And I have the WAIT CLEAR in the mouseexit
>This is all hard coded and not data driven.
>This is all working fine until someone wants to add code for Option 8
>The Option codes and the Words are in a small table.
>I want to make the Wait be data driven.
>Is there a way to make the Wait be created from the table on form init?

Sure.

In form's load:
use OptionsDescriptions in 0 order by OptionID
select OptionDescriptions
lcOptionDesc = ''
scan
  lcOption = m.lcOption + 'Option ' + transform(OptionID) + " = " + OptionDesc + chr(13)

endscan

thisform.cOptionsDesc = m.lcOption
and use this property in the wait window thisform.cOptionsDesc
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform