Add items into column in matrix

Question

Hi everyone,
I have an error like 'reference instance is not set yet' when I debug this code.
Private Sub DrawForm()
        Dim oForm As SAPbouiCOM.Form
        Dim oItem As SAPbouiCOM.Item
        Dim oCombo As SAPbouiCOM.ComboBox
        Dim oColumns As SAPbouiCOM.Columns
        Try
             oForm = SBO_Application.Forms.Item("FBLK")
            ' Add Edit Items
            ' BP Code
            oItem = oForm.Items.Item("txtCode")
            cmbBPCode = oItem.Specific
            AddBPCodeCombo(cmbBPCode)
            ' Add a matrix
            oItem = oForm.Items.Item("mat")
            oMatrix = oItem.Specific
            oColumns = oMatrix.Columns
            ' Item Code
            colItemCode = oColumns.Item("ItemCode")
            colItemName = oColumns.Item("ItemName")
            'Add Valid Values
            AddItemsToCombo(colItemCode)
            oMatrix.AddRow()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub
        End Try
    End Sub
    Private Sub AddItemsToCombo(ByVal oColumn As SAPbouiCOM.Column)
        Dim RS As SAPbobsCOM.Recordset
        Dim Bob As SAPbobsCOM.SBObob
        Try
            RS = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            Bob = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
            RS = Bob.GetItemList
            RS.MoveFirst()
            While RS.EoF = False
                oColumn.ValidValues.Add(RS.Fields.Item("ItemCode").Value, RS.Fields.Item("ItemName").Value) =============> error happen
                RS.MoveNext()
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Exit Sub
        End Try
    End Sub
Is there anyone can help me.Thanks

Answer 1

hi,
oColumn.ValidValues.Add(RS.Fields.Item("ItemCode").Value, RS.Fields.Item("ItemName").Value)
if the error is Validvaue - value exceeds the boundries
combo has Value and Description which is to be shown.
you should know that
RS.Fields.Item("ItemCode").Value.length should not be greater than 50
and
RS.Fields.Item("ItemName").Value.length should not be greater than 50
if any one of the above length is greater than 50 it shows the above discussed error.
if you are not facing with this problem.please specify the error.
regards,
varma