Client Data Set - Não sei o que está acontecendo

Delphi

29/04/2003

Em um cadastro de usuários tenho um campo ATIVO que é do tipo NUMBER(1). Estou utilizando o componente TClientDataSet e TDBCheckBox. Defino as propriedades ValueChecked e ValueUnCheck do TDBCheckBox como 1 e 0 respectivamente. Estou tento o seguinte problema. Quando preencho os campos do formulário (NOME, etc) sem tocar no TDBCheckBox, o registro é gravado sem problemas. Mas se deixo o TDBCheckBox marcado ou desmarcado o registro não é gravado.
Eu faço o CDS.Post e depois o CDS.ApplyUpdates(-1).
Será que alguém pode me dar uma dica do que pode estar acontecendo?
Obrigado.


E_marcus

E_marcus

Curtidas 0

Respostas

Crash

Crash

29/04/2003

Kra tenta colocar um TCheckBox no lugar de um TDBCheckBox.

Ae voce cria um Case

Case CheckBox1.Checked of
True: CDS.FieldByName(´CAMPO´).Value:= 0;
False: CDS.FieldByName(´CAMPO´).Value:= 1;
end;

e o contrario quando voce quiser que o checkbox receba o valor do campo.

Case CDS.FieldByName(´CAMPO´).Value of
0: CheckBox1.Checked:= True;
1: CheckBox1.Checked:= False;
end;


flws


GOSTEI 0
POSTAR