Problem with combo box in a Matrix column

Question

hi every one, i  have a user form with a matrix(uid = 37) with some columns and one column is combo box. in that combo box i have to get values  from OSTC table (Code)...i have written this code ..i dont know how to access the combo box so that i can get values to combo box when i execute the prg....
oitem = oForm.Items.Item("37")  37 is uid of omatrix2
            oMatrix2 = oitem.Specific
            oColumns = oMatrix2.Columns
            oForm.DataSources.UserDataSources.Add("CSR1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
            oColumn = oColumns.Item("V_6")                      ''for accessing the combo box item [V_6 is col uid ]
            oCombo = oColumn.Cells.Item(omatrix2.row).Specific            ''''''''problem line
            oCombo.DataBind.SetBound(True, "", "CSR1")
            rset = oDICompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            query = "select Code from OSTC"
            rset.DoQuery(query)
            Dim tc As String
            rset.MoveFirst()
            For row = 0 To rset.RecordCount - 1
                tc = rset.Fields.Item("Code").Value
                oCombo.ValidValues.Add(tc, row)
                rset.MoveNext()
            Next
            oMatrix2.Columns.Item("V_6").DataBind.SetBound(True, "@SALE_CHILD", "U_Tax")

Answer 1

Call objMain.objUtilities.LoadComboValuesForMatrix(FormUID, "27", "SELECT Code,Name FROM OSTC Order by Code", "V_19", objMatrix.RowCount)
Public Sub LoadComboValuesForMatrix(ByVal FormUID As String, ByVal ItemUID As String, ByVal strQuery As String, ByVal MtrxColId As String, ByVal Rowcount As Integer)
        Dim inti As Integer
        objRecSet = objMain.objUtilities.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        Try
            Dim objmatrix As SAPbouiCOM.Matrix
            Dim objCombo As SAPbouiCOM.ComboBox
            objForm = objMain.objApplication.Forms.Item(FormUID)
            objItem = objForm.Items.Item(ItemUID)
            objmatrix = objItem.Specific
            objCombo = objmatrix.Columns.Item(MtrxColId).Cells.Item(Rowcount).Specific
            objItem.DisplayDesc = True
            objRecSet.DoQuery(strQuery)
            If objRecSet.RecordCount > 0 Then
                If (objCombo.ValidValues.Count > 0) Then
                    For inti = 0 To objRecSet.RecordCount - 1
                        objRecSet.MoveNext()
                    Next
                End If
                If (objCombo.ValidValues.Count <= 0) Then
                    objCombo.ValidValues.Add("", "")
                    For inti = 0 To objRecSet.RecordCount - 1
                        objCombo.ValidValues.Add(Convert.ToString(objRecSet.Fields.Item(0).Value), Convert.ToString(objRecSet.Fields.Item(1).Value))
                        objRecSet.MoveNext()
                    Next
                End If
            End If
        Catch ex As Exception
            Throw ex
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objRecSet)
            GC.WaitForPendingFinalizers()
            GC.Collect()
        End Try
    End Sub