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!