Abrir Checlistbox checado de acordo com um campo da tabela

18/12/2023

Pessoal existe alguma maneira de ao abrir o forms, o Checlistbox abra checado de acordo com um campo da tabela, uso esse c�digo para receber os nomes

dm.fdsetor.open;
Dm.fdsetor.first;
While not dm.fdsetor.Eof do
Begin
Checlistbox1.items.add(dm.fdsetorsetores.value);
Dm.fdsetor.next;

Minha tabela cont�m os campos

 
Id       Setor                          Valido
1         PRINCIPAL               1   
2         COBERTA                 0
3         ARQUIBANCADA     1
4         CADEIRA                   0

Ao abrir o forms o Checlistbox ir� receber o campo setor da tabela,Gostaria que ao abrir o forms aonde no campo v�lido da tabela seja 1 ele abra checado e onde e 0 desmarcado exemplo:
CHECLISTBOX
[✓] PRINCIPAL
[ ] COBERTA
[✓] ARQUIBANCADA
[ ] CADEIRA

SERIA POSS�VEL ISSO?

Alan

Curtir t�pico + 0

Responder

Post mais votado

18/12/2023

Teste esse c�digo:

  dm.fdsetor.open;
  dm.fdsetor.first;

  While not dm.fdsetor.Eof do
  Begin
    Checlistbox1.Items.Add(dm.fdsetorsetores.value);

    Checlistbox1.Checked[Checlistbox1.Items.Count - 1] := dm.fdsetorvalido.value = 1; // acrescentei esta linha

    dm.fdsetor.next;
  end;

Natanael Ferreira

Responder

Gostei + 1

Mais Posts

18/12/2023

Alan

Teste esse c�digo:

  dm.fdsetor.open;
  dm.fdsetor.first;

  While not dm.fdsetor.Eof do
  Begin
    Checlistbox1.Items.Add(dm.fdsetorsetores.value);

    Checlistbox1.Checked[Checlistbox1.Items.Count - 1] := dm.fdsetorvalido.value = 1; // acrescentei esta linha

    dm.fdsetor.next;
  end;

Opa Natanael,deu certo amigo ,muito obrigado.

Responder

Gostei + 0

18/12/2023

Arthur Heinrich

Como � dependente da coluna "Valido", que pode ser 0 ou 1, imagino que deve ser checado sempre que for 1.

  dm.fdsetor.open;
  Dm.fdsetor.first;
  while not dm.fdsetor.Eof do
    begin
      Checlistbox1.items.add(dm.fdsetorsetores.value);
      Checlistbox1.Checked[Checlistbox1.Items.Count - 1]:=Boolean(dm.fdvalidosetores.value);
      Dm.fdsetor.next;
      ...

Responder

Gostei + 0