How to load combobox with a field from a Profile Doc?
Posted on 2006-03-21
I have a profile DOc that contains a text field allowing multiple entries, which are district codes ( 3 characters each).
I hae a data entry screen , and I want to use a combobox, so the user can choose the district code from the list in the Profile Doc.
I would like to know to do this ?
I have tried the following in the postopen ( creating a copy of the field in the data entry Form )
All items are declared in the Form globally.
Sub Postopen(Source As Notesuidocument)
' Prepare list in a field for District Lokkup
Dim cnt1 As Integer
Set S= New NotesSession
Set CurDb = S.CurrentDatabase
Set prfDoc = CurDb.getProfileDocument("DL_Prof")
'DLItems is now a hidden field, use it
Set DLitem = prfdoc.GetFirstItem("DL_DC_Field")
' Dim DistList As String
Call SRdoc.CopyItem( DLitem, "DLItems" )
' Forall itemValue In DLitem.Values
' cnt1= cnt1+1
'' Messagebox "Values:" & Chr(10) & itemValue
' End Forall
' Print cnt1 ' debug
' Print itemValue ' debug
Call SRdoc.Save(True,False) ' Delete after testing without.
I can see the field with the correct data.
In the Combobox I have the list set from the functions to use field DLItems
Opening a doc shows the field correctly
Field Name: DLItems
Data Type: Text List
Data Length: 677 bytes
Seq Num: 1
Dup Item ID: 0
Field Flags: SUMMARY
The Combobox is empty- No list to pick from.
Any help resolving this appreciated.