Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Select Select() problem
Message
De
24/01/2003 11:34:05
Cindy Winegarden
Duke University Medical Center
Durham, Caroline du Nord, États-Unis
 
 
À
24/01/2003 10:31:11
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00745065
Message ID:
00745105
Vues:
17
>I have a statistics class that I have on all of my forms. Before 7.0 the class ran in both development mode and compiled to an exe or built as an app. The same class does not work as an exe or an app but it does in development mode. The form runs the stats class form and passes the DE to the stats form. The calling form becomes an object in the stats form. This is the code from the combobox that populates the table list and field lists for the stats to run on. I don't get an error running this as an app but the alias is getting lost some where. The empty(select()) is not true but I cannot get the number of fields in the table. In debug mode it seems to be loosing the alias after the select statement.
>
>
dodefault()
>
>LOCAL lnTable
>set datasession to thisform.fromform.datasession
>
>if empty(this.displayvalue) then
>   select select(thisform.fromform.dataenvironment.initialselectedalias)
>ELSE
>   SELECT SELECT(This.DisplayValue)
>endif
>
>IF EMPTY(SELECT())
>  RETURN
>ENDIF
>
>Thisform.Cbx_Items.Clear
>
>for fc = 1 to fcount(select())
>  IF INLIST(TYPE(FIELD(fc,select())),"N","F","I","B","Y")
>    Thisform.cbx_Items.AddItem(proper(FIELD(fc,select())))
>  ENDIF
>NEXT
>
>RETURN
Hi Quinn,

What are you trying to do with the "SELECT SELECT" constructs?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform