Combo Box Selection Issue in SBO 2007

Question

Hello.
Here is one issue which I am facing now.
I have just installed the 2007 Version of SBO in my machine. And using VB.Net.
When I tried to retrieve the <i>Selected.Value</i> from a ComboBox, it is returning a wrong value.
The real problem is this.
Suppose there is two ValidValues in the Combo box
1. <b>aaa</b>
2. <b>bbb</b>
and suppose we manually selected the value '<b>aaa</b>' in it.
Then the combobox will show '<b>aaa</b>' as selected value.
When we try to return it using the <i>Selected.Value</i> property, it returns <b>aaa</b>.
then I tried to select '<b>bbb</b>' using a code which is here
<i>oCombo.Select("bbb",SAPBouicom.BoSearchKey.psk_ByValue)</i>
Now the combobox will show '<b>bbb</b>' as selected value. But,
When we try to return it using <i>Selected.Value</i> property, It still returns <b>aaa</b>.
If we select <b>bbb</b> manually, it will return <b>bbb</b>.
IT ALWAYS RETURNS THE LAST MANUALLY SELECTED VALUE.
here is the original Code which I tried in my application.
<i>cboCategory.Select(CWRptMaint.ReportCategory, SAPbouiCOM.BoSearchKey.psk_ByValue)
Dim s As String = cboCategory.Selected.Value
Dim t As String = cboCategory.Selected.Description
</i>
Please Help me to solve this issue.
Thank you
Anoop

Answer 1

HI
I never had a problem about combobox not using datasource
But here's the example code about combobox using datasource and not using datasource that i'm taken from one of my friend's project (VB6)
'================================================================
Public Type objectReportBA
    oComboBox As SAPbouiCOM.ComboBox
    oComboBox2 As SAPbouiCOM.ComboBox
    oUserDataSource As SAPbouiCOM.UserDataSource
End Type
Public oRBA As objectReportBA
'==================================================================
    '// example Adding a Combo Box item not using user data source
    Set oItem = oFormReportBA.Items.Add("RCB1", it_COMBO_BOX)
    oItem.Left = 70
    oItem.Width = 85
    oItem.Top = 4
    oItem.Height = 18
    oItem.DisplayDesc = True
    Set oRBA.oComboBox = oItem.Specific
    oRBA.oComboBox.ValidValues.Add "1", "aaa"
    oRBA.oComboBox.ValidValues.Add "2", "bbb"
    oRBA.oComboBox.Select "bbb", psk_ByValue
    SBO_Application.MessageBox "Combo1->" & oRBA.oComboBox.Selected.Value       '<<<< will get a value = 2
    SBO_Application.MessageBox "Combo1->" & oRBA.oComboBox.Selected.Description '<<<< will get a description = bbb
'==================================================================
    '// example Adding another Combo Box item and using datasource
    Set oItem = oFormReportBA.Items.Add("RCB2", it_COMBO_BOX)
    oItem.Left = 157
    oItem.Width = 163
    oItem.Top = 24
    oItem.Height = 14
    oItem.DisplayDesc = True
    Set oRBA.oComboBox2 = oItem.Specific
    oRBA.oComboBox2.ValidValues.Add "1", "aaa"
    oRBA.oComboBox2.ValidValues.Add "2", "bbb"
    oFormReportBA.DataSources.UserDataSources.Add "CombSource", dt_LONG_TEXT, 30
    oRBA.oComboBox2.DataBind.SetBound True, "", "CombSource"
    Set oRBA.oUserDataSource = oFormReportBA.DataSources.UserDataSources.Item("CombSource")
    oRBA.oUserDataSource.Value = "bbb"
    SBO_Application.MessageBox "Combo2->" & oRBA.oUserDataSource.Value  '<<< will get a value = bbb (but u will get diferent value if u click the combobox manually)
'======================================================================
'if you click the combobox manually using itemEvent
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, pVal As SAPbouiCOM.IItemEvent, BubbleEvent As Boolean)
     Select Case pVal.ItemUID      
          Case "RCB1": '//combobox object not using datasource
                    If pVal.EventType = et_COMBO_SELECT Then
                        If pVal.BeforeAction = False Then
                            SBO_Application.MessageBox "combo1->" & oRBA.oComboBox.Selected.Description  '<<<< will get a description = aaa or bbb
                        End If
                    End If
          Case "RCB2": '//Combobox object that using datasource
                    If pVal.EventType = et_COMBO_SELECT Then
                        If pVal.BeforeAction = False Then
                            SBO_Application.MessageBox "combo2->" & oRBA.oUserDataSource.Value            '<<<< will get a descriptian = 1 or 2
                            SBO_Application.MessageBox "combo2->" & oRBA.oComboBox2.Selected.Description '<<<< will get a description = aaa or bbb
                        End If
                    End If
     end select
end sub
'===============================================================
Hopefully this will Help You Anoop
Regards
Ancumen