Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Select Select() problem
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
Thanks in advance.
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement