Error When trying to add new user field to OCHH table

Question

Hi
can you please check the following code ? I am geting an error "Ref count for this object is higher than 0"
Dim RetVal, ErrCode As Integer
        Dim ErrMsg As String
        Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
        oUserFieldsMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        ' Adding "BPCode" field
        '// Setting the Field's properties
        oUserFieldsMD.TableName = "OCHH"
        oUserFieldsMD.Name = "OBJ"
        oUserFieldsMD.Description = "OB Code"
        oUserFieldsMD.Type = SAPbobsCOM.BoFieldTypes.db_Alpha
        oUserFieldsMD.EditSize = 2
        '// Adding the Field to the Table
        RetVal = oUserFieldsMD.Add
        '// Check for errors
        If RetVal <> 0 Then
            oCompany.GetLastError(RetVal, ErrMsg)
            MsgBox(ErrMsg)
        Else
            'chkUDOAfter.SetItemChecked(1, True)
            MsgBox("Field: '" & oUserFieldsMD.Name & "' was added successfuly to " & oUserFieldsMD.TableName & " Table")
        End If
Thanks
George

Answer 1

Hi Denilo
Your suggestion did not solve the problem . I want to add that the code works fine with user-tables but not when I try with OCHH
Thanks
George
After alot of search
GC.select
Did the job
Thanks again
Regards
George
Edited by: George Pachakis on Sep 7, 2009 6:51 PM
Edited by: George Pachakis on Sep 7, 2009 6:54 PM