picklist

[mental]

Одно из полей DBGrid'a настроено под заполнение из выпадающего списка (ComboBox). Проблема в том, что это поле в базе может принимать 2 значения: "0" и "1". Но в ComboBox и DbGrid должны отображаться "Нет" и "Да" вместо "0" и "1" соответственно.
На отображение записей весит запрос:

AdoQuery4.SQL.Text:='Select Item AS Товар,case when Active = 1 then '+#39+''+'Да'+''+#39+' when Active = 0 then '+#39+''+'Нет'+''+#39+' end As [Активно] From Goods';
AdoQuery4.Active:=true;

Значения из базы успешно преобразуются и отображаются в DBGrid'e.

И на событие AdoQuery.BeforePost:

If AdoQuery4.FieldValues['Активно']='Да' then
AdoQuery4.FieldValues['Активно']:='1' else
AdoQuery4.FieldValues['Активно']:='0';

Проблема в том, что после изменения значений в ComboBox (когда редактируешь записи) он просто игнорирует и возвращает прежнее значение. Когда добавляешь новую запись он игнорирует выпадающий список и пытается вставить значение NULL.

Помогите разобраться.

[Gulik]

У ComboBox есть свойство ItemIndex (Integer) можешь его использовать

А на событие AdoQuery.AfterScroll повесь это

if AdoQuery4.FieldByName('Активно').AsString <> '' then
   ComboBox1.ItemIndex := AdoQuery4.FieldByName('Активно').AsInteger ;

А в гриде можно сделать не да и нет, а галочки (DBGridEh)

Так же как вариант можно использовать Lookup поля и компонент DBLookupComboBox

[mental]

Наверно не правильно выразился, самого компонента ComboBox нету, настроено так:
В гриде в свойстве picklist прописаны: Да Нет

Проблема не в выпадающем списка, а в добавлении/обновлении записей.