Populating a matrix cell with data selected from a picker

Question

Dear All,
I am new to SAP Bussiness one, please let me know how to get the selected data from a picker in to a matrix cell. I have warehouse code and warehouse name in the picker. I want the user selected warehouse code in the matrix cell
Below is my code But I am not getting the selected code in the matrix cell
I am adding the datasource as below
oUserDataSource = oForm.DataSources.UserDataSources.Add("UDCFL", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)
Then I am adding the choose  list  as below
Private Sub AddChooseFromList()
        Try
            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
            Dim oCons As SAPbouiCOM.Conditions
            Dim oCon As SAPbouiCOM.Condition
            oCFLs = oForm.ChooseFromLists
            Dim oCFL As SAPbouiCOM.ChooseFromList
            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            ' Adding 2 CFL, one for the button and one for the edit text.
            oCFLCreationParams.MultiSelection = False
            oCFLCreationParams.ObjectType = "64"
            oCFLCreationParams.UniqueID = "CFL1"
            oCFL = oCFLs.Add(oCFLCreationParams)                
        Catch
            MsgBox(Err.Description)
        End Try
    End Sub
*Then I am binding the data as below to the matrix column*
oColumn = oColumns.Item("colToWhs")
        oColumn.DataBind.SetBound(True, "", "UDCFL")
        oColumn.ChooseFromListUID = "CFL1"
Then in the event i have added the  below code.
                    Dim oDataTable As SAPbouiCOM.DataTable
                    oDataTable = oCFLEvento.SelectedObjects
                    Dim val As String
                    Try
                        val = oDataTable.GetValue(0, 0)
                    Catch ex As Exception
                    End Try
                    oForm.DataSources.UserDataSources.Item("UDCFL").Value = val
                   End If
But the code is not getting populated in the matrix cell. Please let me know at the earliest
Thanx in Advance

Answer 1

sOLVED