Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FormSet address in a cursor
Message
De
21/07/2016 23:10:31
 
 
À
21/07/2016 19:36:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01638546
Message ID:
01638551
Vues:
63
Hello Al,

English not being my native language I frequently realize that I didn't really explain myself well enough.

So let me rephrase what I'd like to accomplish


I could have many occurences of a given form being created/used any given time. I want the user to be able to specify which form should be visible at a given time. So only one is visible. the other ones would be invisible.

So I thought that It would be doable to create a cursor.

So first field of that cursor would be a string and second field of the cursor would contain a reference to the formset or form. That way the user would only see the strings related to the forms/formsets. When one of the strings is selected I would only have to make the good form/formset visible by using its reference.

Perhaps I thought of a solution too complex for what I want to do.

Now I'm guessing that managing by giving unique names to those forms/formset could be simpler.

Any alternatives you want to suggest?


>>I want to create a cursor that will contain values of forms or formsets.
>>
>>Example
>>
>>insert into addresses ('Name of formset1', ThisformSet)
>>
>>In that case the type of the field could be c(16)
>>
>>What would be the necessary field type for thisformset?
>
>Not sure what you're trying to achieve. AFAIK you can't directly store an object (or even just an object reference) in a cursor. But if you want to do what you're saying in the first line you could do something like this:
>
>CREATE CURSOR ValsCursor ( FSName C( 16 ), PropName C( 16 ), PropType C( 1 ), CharVal C( 100 ), IntVal I, NumVal N( 8, 2 ), LogVal L )
>
>INSERT INTO ValsCursor
>  ( FSName ;
>  , PropName ;
>  , PropType ;
>  , CharVal ) ;
>  VALUES ;
>    ( "MyFormSet" ;
>    , "Name" ;
>    , "C" ;
>    , MyFormSet.Name )
>
>INSERT INTO ValsCursor
>  ( FSName ;
>  , PropName ;
>  , PropType ;
>  , IntVal ) ;
>  VALUES ;
>    ( "MyFormSet" ;
>    , "FormCount" ;
>    , "I" ;
>    , MyFormSet.FormCount )
>
>INSERT INTO ValsCursor
>  ( FSName ;
>  , PropName ;
>  , PropType ;
>  , LogVal ) ;
>  VALUES ;
>    ( "MyFormSet" ;
>    , "AutoRelease" ;
>    , "L" ;
>    , MyFormSet.AutoRelease )
>
>
*******************************************************
Save a tree, eat a beaver.
Denis Chassé
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform