Resetting ComboBox

Question

Hello everyone,
I would appreciate if someone could help me solve this problem. It's something simple but it seems that I'm doing something wrong and I don't know what. I have a user defined field in a form and I want to add some values to it (it's a combo box) with code. I managed to add the values, but I cannot erase them so the comboBox will reset with new values.
The addon works this way: The user enters a client code, when it validates (itemevent) the addon searchs all it's addresses and add them to the comboBox for the user to select one. The problems shows when I change the client code and validates it again, it should erase all addresses that were entered before and add the new ones (the ones that that client has), but it doesn't erase them. I tried some code that was posted in this forum with no success. My code is:
oItem = oForm.Items.Item("U_DCLIENTE")
        oForm.Items.Item("U_DCLIENTE").DisplayDesc = True
        direccCliente = oItem.Specific
        Dim a As Integer
        i = 1
Try
If direccCliente.ValidValues.Count > 0 Then
direccCliente.ValidValues.Add("", "")
direccCliente.Select(direccCliente.ValidValues.Count - 1, SAPbouiCOM.BoSearchKey.psk_Index)
For j = 1 To direccCliente.ValidValues.Count
direccCliente.ValidValues.Remove(direccCliente.ValidValues.Item("j").Value, SAPbouiCOM.BoSearchKey.psk_Index)
Next j
End If
Catch ex As Exception
'leave blank
End Try 
        Try
            sbors.DoQuery("select address from ALARSA_D.CRD1 t0 inner join ALARSA_D.OCST t1 on state=Code where CardCode = '" & codMinusc & "' or CardCode='" & codMayusc & "'")
            sbors.MoveFirst()
        Catch ex As Exception
            aplicacion.MessageBox("Ese cliente no tiene ninguna dirección")
        End Try
        a = sbors.RecordCount
        While i <= a
            direccCliente.ValidValues.Add("" & i & "", sbors.Fields.Item(0).Value)
            sbors.MoveNext()
            i = i + 1
        End While
    End Sub
Ca anybody help me? Thank you very much!

Answer 1

Hello Adele, thank you for your quick reply. I changed my code and put what you told me and also wrote what another topic of the forum says about resetting comboBox. The thing is that something very strange happened: I was debugging my project to see if it shows an error or works, and when the program gets to this line:
direccCliente.Select(direccCliente.ValidValues.Count - 1, SAPbouiCOM.BoSearchKey.psk_Index)
it returns to the ItemEvent function!!! I don't know how this does it! it's like I had a "return" or somethig there. So, it keeps executing but keeps returning to the preview function everytime it gets to that line.
Do you know what can it be?
I've noticed something, when it tries to execute the line I wrot before, it returns to the break point that's before that line! But if I put the break point after that line, it just freeze and stops.
Another thing, I erased two lines and just use this code:
Try
            If direccCliente.ValidValues.Count > 0 Then
                For j = direccCliente.ValidValues.Count - 1 To 0 Step -1
                    direccCliente.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)
                Next j
            End If
        Catch ex As Exception
            'leave blank
        End Try
An exception is thrown: {"Item - The item is not a user-defined item"}     System.Exception
What does it mean? The comboBox I'm using is an user defined field created in SBO (not by code). Why does it tells me that that item is not an user define field?
THANKS!!!!!
Message was edited by: BOne Altim
Message was edited by: BOne Altim