Programatically write values to ArcPad Form control box

Question

Using this blog post I've managed to store user names as global variables in ArcPad. The next step is to use those variables in form 'controls' aka form fields.

Per the author's comments under his original quote I've attempted to go this route:

• If you are writing the value to a field that is linked to a control on the form, set the control value: pForm.Pages("PAGE1").Controls("EMPLOYEE").Value = Application.UserProperties("LoggedInEmployee")

Unfortunately I'm not getting anything written into the field when I open the form (this is an onLoad event handling script). I'm not getting an error message at this point, and the value in the control box is changing from to being totally empty.

I have managed to 'echo' or 'alert' back the user-name with Application.MessageBox Application.UserProperties("LoggedInEmployee") associated with an onUnload event, so I know that it's stored properly.

Any Ideas?

Answer 1

I use an old version of ArcPad - 7.1.1, so I don't know how much of this info applies, but in the control properties for this drop down control, is there a 'limit to list' control and is it checked? That would prevent new values not present in the domain from being entered.

Here's the code I use to set values in drop down boxes, and I'm pretty sure it's boiler plate code generated by ArcPad, so it may already be in your project :

'#### Sets input combo box's listindex to match input value
Sub SetCboValue (ByRef pCbo, pValue)
  Dim intI
    For intI = 0 To pCbo.ListCount-1 
      pCbo.ListIndex = intI
      If CStr(pCbo.value) = CStr(pValue) Then 
        Exit For 
      End If 
    Next
    'If the value was not found, make nothing selected in combobox
    If CStr(pCbo.Value) <> CStr(pValue) Then
      pCbo.ListIndex = -1
    End If 
End Sub

Use it like this :

SetCboValue pForm.Pages("PAGE1").Controls("EMPLOYEE"), Application.UserProperties("LoggedInEmployee")

Like I said, this is from version 7.1.1 so I don't know if this applies or not.