Я на основе ComboBox делал ввод значений для поика с сохранением истроии. Вот такой код:

SET NEAR ON
IF EMPTY(This.Text)
RETURN
ENDIF
FindTextKarta = PROPER(ALLTRIM(This.Text))
= SEEK(FindTextKarta,"Sp_sub","fam")
IF EOF("Sp_sub")
= MESSAGEBOX("Запись в картотеке не найдена"+CHR(13)+FindTextKarta,48,"Поиск")
GO BOTTOM IN Sp_sub
ENDIF
*// Далее сохранение введенного текста в ComboBox
NewPopup = .T.
FOR nn = 1 TO This.ListCount
IF This.List(nn) = ALLT(FindTextKarta)
NewPopup = .F.
ENDIF
ENDFOR
IF NewPopup = .T.
IF This.ListCount >= 20 && Ограничение количество записей в ComboBox
This.RemoveItem(1)
ENDIF
This.AddItem(FindTextKarta)
ENDIF
This.Value = FindTextKarta
This.Requery

В дополнение к вышенаписаному.
Эта функция стоит в свойсве Valid.
Согда мы набираем текст в ComboBox, этот текст записывается в го свойствах Text, Поэтому и нужно выбирать из него это значение, а там уже записывать или в сам ComboBox или в курсор, это уже по желанию.
В примере приведена запись в сам бокс, с проверкой, нет ли уже такого значения в списке. А записать можно куда угодно.
Этот код мной был написан еще лет 10 назад, давненько в его не заглядывал, но работает без сбоев.