Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Programatically adding objects
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00013536
Message ID:
00013537
Vues:
31
Sorry,

This code is in the init() of the form!

Jon



>Hi
>
>I have a form that displays personal information. This form will display AS IS as long as the user has standard access level. However, when a higher access user is logged on, an additional listbox containing all the records in the table. The problen I am having is assigning the rowsource and control sources from the table. My code looks like this;
>
>LOCAL lcUserLevel, ;
> lcAlias
>
>lcUserLevel = oApp.getUserLevel()
>lcAlias = thisform.dataenvironment.initialselectedalias
>
>IF lcUserLevel ALLTRIM("Individual")
>*--Resize my form
>thisform.width = 635
>thisform.cntInfo.left = 173
>
>thisform.AddObject('lstList','listwithssan')
>thisform.lstList.left = 0
>thisform.lstList.top = 0
>thisform.lstList.lstNames.RowSource = ;
> 'lcAlias'+'.'+ALLTRIM(lastname)+', '+'lcAlias'+'.'+;
> SUBSTR(firstname,1,1)
>thisform.lstList.txtSSAN.ControlSource = 'lcAlias' + '.'+ ssan
>ENDIF
>
>thisform.lstList.visible = .T.
>
>It displays just fine, but I am missing the boat here on refrencing the table (appropriately!) in the data environment to display the value in the new object.
>
>Any help greatly appreciated
>
>Jon
Jon Paskett

Microsoft Certified Systems Engineer
We all have to start somewhere...
Sometimes over again!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform