Error:Ref cound more than 1 when add the field

Question

hai,
I got the error like "Ref cound more than 1" when i add the field in the table.I use this fuction
Public Function createUserFields(ByVal tablename As String, ByVal fieldName As String, ByVal fieldDescription As String, ByVal dataType As SAPbobsCOM.BoFieldTypes, Optional ByVal dataSize As Long = 0, Optional ByVal subType As SAPbobsCOM.BoFldSubTypes = SAPbobsCOM.BoFldSubTypes.st_None, Optional ByVal linkedTable As String = "") As Boolean
Dim v_UserField As SAPbobsCOM.UserFieldsMD
Dim v_RetVal As Long
Dim v_ErrCode As Long
Dim v_ErrMsg As String = ""
Try
createUserFields = False
If Not UserFieldExists(tablename, fieldName) Then
app.StatusBar.SetText("Creating Table " + tablename + " ...... :> Adding Field: " & fieldName & " - " & fieldDescription, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
v_UserField = com.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
v_UserField.TableName = "@" + tablename
v_UserField.Name = fieldName
v_UserField.Description = fieldDescription
v_UserField.Type = dataType
If dataType = SAPbobsCOM.BoFieldTypes.db_Alpha Then
v_UserField.Size = dataSize
End If
If Not (subType = SAPbobsCOM.BoFldSubTypes.st_None) Then
v_UserField.SubType = subType
End If
If linkedTable "" Then v_UserField.LinkedTable = linkedTable
' If Not (v_progressBar Is Nothing) Then v_progressBar.Text = tablename + ":> " + "Adding Field:> " & fieldName & " :> " & fieldDescription
v_RetVal = v_UserField.Add()
If v_RetVal = 0 Then
createUserFields = True
Else
com.GetLastError(v_ErrCode, v_ErrMsg)
app.StatusBar.SetText("Failed to add UserField " & fieldName & v_ErrCode & " " & v_ErrMsg, SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
End If
System.Runtime.InteropServices.Marshal.ReleaseComObject(v_UserField)
v_UserField = Nothing
GC.Collect()
End If
can any one help me?
Regards,
Ramya.s

Answer 1

HI
In 2007 i always got the same problem.
Solution:
1st create all tables
then
2nd create all fields
and do not use any querys to exists the table or field
>If Not UserFieldExists(tablename, fieldName) Then
use lretcode when you add the field / Table, even it is -2035 it is already exists, do not care.
'... your original code
            If v_RetVal <> 0 Then
                Select Case v_RetVal
                    Case -2035 'means already exist
                    Case Else
                        com.GetLastError(v_ErrCode, v_ErrMsg)
'... your original code
                End Select
            End If
Only this way was working for me....
Regards,
J.
Edited by: Janos  Nagy on Jul 30, 2008 2:58 PM