Problem in Combo Select

Question

Hi,
In my form i have a combo. My requirement is, for example i load 5 data A,B,C,D,E in combo. First i select the 'A' and load the corresponding elements in the matrix, next i select 'B' and the corresponding elements of 'B'  was loaded in matrix now again i select 'A ' it should check 'A' is already selected and the corresponding elements are already displayed in matrix again the elements of 'A' should not be loaded in matrix. Plz tell how to check this.
Thanks in Advance.
Regards,
Madhavi

Answer 1

Hi Madhavi,
here are the main parts of my little example.
Some hints:
The form is managed in a shared class (only one form at a time)
The Matrix is loaded via a DataTable
The Matrix is ReLoaded on every time the "ABCDE-Combo" is selected (except the value is already selected)
In the example I load Businesspartners into matrix where their CardName starts with A or B or....or E (you must adapt it for your needs)
SboCon.SboDI is the SAPbobsCOM.Company
SboCon.SboUI is the SAPbouiCOM.Application
Some global vars (initialize them somewhere when the form is opened!):
    Private Shared oForm As SAPbouiCOM.Form
    Private Shared oUds As SAPbouiCOM.UserDataSources
    Private Shared oDts As SAPbouiCOM.DataTables
    Private Shared oDtBp As SAPbouiCOM.DataTable
    Private Shared oMtxBp As SAPbouiCOM.Matrix
    Private Shared SelVals As System.Collections.ArrayList ' The values of the combo which already selected by the user
Init the vars somewhere (where you normally do this) on form load:
            oForm = '...set it in your way
            oDts = oForm.DataSources.DataTables
            oUds = oForm.DataSources.UserDataSources
            oMtxBp = oForm.Items.Item("MTX_BP").Specific
           ' DataBinding and related:
            '### Data Tables
            oDts.Add("DT_BP")
            '### UserDataSources
            '# ABCDE Combo:
            oUds.Add("UDS_SELBP", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 100)
            oForm.Items.Item("CBX_SELBP").Specific.databind.setbound(True, "", "UDS_SELBP")
            '### Fill ABCDE Combo
            oForm.Items.Item("CBX_SELBP").DisplayDesc = True
            oCbx = oForm.Items.Item("CBX_SELBP").Specific
            oCbx.ValidValues.Add("0", "Please select...")
            For val As Integer = Asc("A") To Asc("E")
                oCbx.ValidValues.Add(Chr(val), "Load " & Chr(val) & " BP")
            Next
            oUds.Item("UDS_SELBP").ValueEx = "0"
The Combo Select Event:
            If pVal.ItemUID = "CBX_SELBP" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT Then
                If Not pVal.BeforeAction Then
                    If oUds.Item("UDS_SELBP").ValueEx != "0" Then
                        Dim oCbx As SAPbouiCOM.ComboBox = oForm.Items.Item("CBX_SELBP").Specific
                        If SelVals.Contains(oUds.Item("UDS_SELBP").ValueEx) Then
                            ' BP already selected - do nothing
                            SboCon.SboUI.StatusBar.SetText("Already selected!")
                        Else
                            If Not SelVals.Contains(oUds.Item("UDS_SELBP").ValueEx) Then
                                SelVals.Add(oUds.Item("UDS_SELBP").ValueEx)
                            End If
                            Dim query As String
                            oDtBp.Clear()
                            oMtxBp.Clear()
                            ' Build query for BPs where their names starts with the Combo-Value
                            query = "SELECT CardCode, CardName FROM OCRD WHERE "
                            For i As Int16 = 0 To SelVals.Count - 1
                                If i > 0 Then query &= " OR "
                                query &= "CardName LIKE '" & SelVals(i) & "%' "
                            Next
                            query &= " ORDER BY CardName"
                            ' load the MTX via DataTable (reloaded every time based on collected combo-values)
                            oDtBp.ExecuteQuery(query)
                            With oMtxBp.Columns
                                ' Zeilen-Nr.
                                .Item("0").DataBind.Bind("DT_BP", "CardCode")
                                .Item("1").DataBind.Bind("DT_BP", "CardName")
                            End With
                            oMtxBp.LoadFromDataSource()
                            oMtxBp.AutoResizeColumns()
                            SboCon.SboUI.StatusBar.SetText(oUds.Item("UDS_SELBP").ValueEx & " added!", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
                        End If
                        ' reset Combo to "Please select..."
                        oUds.Item("UDS_SELBP").ValueEx = 0
                    End If
                End If
            End If
ATTENTION: REPLACE the "!=" with less (<)/greater(>) symbol, they're not shown in ths forum
I hope I didn't forget sth. - here it works..
Cheers,
Roland
Edited by: Roland Toschek on Sep 25, 2008 11:54 AM