Unusual Problem with Matrix

Question

Hi Guys,
I have a matrix which is on the UDO form. I have bound all the columns with DB DataSources. I have one column of combobox type where in the back end i have the valid values
"1-Approved"
"2-Pending"
"3-Rejected"
The problem here is that when the form is opened the matrix column only shows values 2 and 3 ("2-Pending","3-Rejected").
I also have another Column with 2 Valid values, again facing the same problem. Only one value is being shown.
But in the backend when i check in the "Manage User Fields" Screen all the 3 Valid values are visible.
Am i doing something wrong..??
Thanks in Advance,
Vasu Natari.

Answer 1

Hi,
For me, even if the validvalues are added, it is working. Real.
Here is a code for matrix columns, and it is shows me on the form the description.
You must have to add of course validvalues to show the description (as in the description). This sample
is shows you the ship types of orders. You also can use userdatasources....
Sub ComboDesc()
        Dim oForm As SAPbouiCOM.Form = m_SBO_Application.Forms.Add("TEST_MTX")
        oForm.Visible = True
        Dim oitem As SAPbouiCOM.Item = oForm.Items.Add("MTX", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
        With oitem
            .Top = 5
            .Left = 5
            .Width = oForm.Width - 15
            .Height = oForm.Height - 15
            .AffectsFormMode = False
        End With
        Dim oMatrix As SAPbouiCOM.Matrix = oitem.Specific
        Dim oColumns As SAPbouiCOM.Columns = oMatrix.Columns
        Dim oDBDataSource As DBDataSource = oForm.DataSources.DBDataSources.Add("ORDR")
        Dim oColumn As SAPbouiCOM.Column = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        With oColumn
            .TitleObject.Caption = "#"
            .Description = .TitleObject.Caption
            .Width = 30
            .DataBind.SetBound(True, "ORDR", "DocEntry")
            .Editable = False
        End With
        oColumn = oColumns.Add("COL1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
        With oColumn
            .Width = 80
            .TitleObject.Caption = "ShipType"
            .Description = .TitleObject.Caption
            .Editable = False
            .DataBind.SetBound(True, "ORDR", "TrnspCode")
            .DisplayDesc = True
            .Visible = True
        End With
        Dim vv As SAPbouiCOM.ValidValues = oColumn.ValidValues
        Dim ors As SAPbobsCOM.Recordset = ocmp.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        ors.DoQuery("select * from OSHP")
        Do While Not (ors.EoF)
            vv.Add(ors.Fields.Item(0).Value, Left(ors.Fields.Item(1).Value, 30))
            ors.MoveNext()
        Loop
        oDBDataSource.Query()
        oMatrix.LoadFromDataSource()
    End Sub
Regards
J.