SBO 2005 combo box does not update value at first time

Question

Hi!I developed an addon for sbo 2004 with a combo box populated with the months of the year, and it works. The same code run on SBO 2005 works only after the second selection. Has anyone found the same problem?

Answer 1

definition of the item:
item = form.Items.Add("oMese", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
                item.Left = 245
                item.Top = 5
                item.Width = 80
                item.DisplayDesc = True
                combo = item.Specific
                combo.DataBind.SetBound(True, "", "uMese")
                combo.ValidValues.Add(1, "Gennaio")
                combo.ValidValues.Add(2, "Febbraio")
event handling:
inside ItemEvent in case the item is selected
Case SAPbouiCOM.BoEventTypes.et_COMBO_SELECT
                    Select Case pVal.FormUID
                        Case "PRG_UFM_0002_RegIVAAcq"
                            retCode = oTy_RACQ.FormComboSelect(pVal, BubbleEvent)
  Public Shared Function FormComboSelect(ByVal pVal As SAPbouiCOM.ItemEvent, _
                                           ByRef BubbleEvent As Boolean, _
                                           ByRef funCaller As Object, _
                                           ByVal funCallerID As Integer, _
                                           ByRef aForm As SAPbouiCOM.Form) _
                                           As Integer
        Dim msg As String
        Dim edt As SAPbouiCOM.EditText
        Dim cmb As SAPbouiCOM.ComboBox
        Dim obt As SAPbouiCOM.OptionBtn
        Dim cbx As SAPbouiCOM.CheckBox
        Dim mtx As SAPbouiCOM.Matrix
        Try
            If pVal.Before_Action = True Then
                Select Case pVal.ItemUID
                    Case "oMese"
                        Dim stre As New strEstremi
                        cmb = aForm.Items.Item("oMese").Specific
                        edt = aForm.Items.Item("anno").Specific
                        If Not cmb.Selected Is Nothing Then
                            GetEstremiPeriod(edt.Value, cmb.Selected.Value, "M", stre)
                            edt = aForm.Items.Item("dtFrom").Specific
                            edt.String = stre.dtFrom
                            edt = aForm.Items.Item("dtTo").Specific
                            edt.String = stre.dtTo
                        End If
end function
thank you I hope is enough otherwise please tell me