Delphi установить свойство Checked для TcxDBCheckBox

Проблема: При программном изменении свойства Checked для TcxDBCheckBox свойство не обновляется.
Инструментарий: Rad Studio XE3
Компоненты (фирма): TcxDBCheckBox(DevExpress)
...
cxDBCheckBox:TcxDBCheckBox
...
if SomeCondition then
cxDBCheckBox.Checked := False;
...
//Обновление DataSet'а для проверки установились свойства или нет


Оказывается данные визуально установились, но не записались в БД.
Есть два метода решения данной проблемы:

  1. Штатными средствами DataSet’а:

...
with cxDBCheckBox.DataBinding do
begin
DataLink.DataSet.Edit; //переводим DataSet в режим редактирования
Field.Value := false; //или True, в зависимости что Вам нужно
DataLink.DataSet.Post; //сохраняем изменения
end;
...

  1. Путем изменения свойств компонента TcxDBCheckBox

...
with cxDBCheckBox do
begin
EditValue := false; // устанавливаем нужное значение True/False
DataBinding.StoredValue := EditValue; //изменяем значение во внутреннем хранилище на нужное
end;

Добавить комментарий