Atribuir Valores

Delphi

10/08/2022

Olá Pessoal! !
Precisando de um auxílio aqui.

Tenho uma TRxDBComboBox com os valores:

C=Cliente
F=Fornecedor

Basicamente gostaria de atribuir um valor existente na combo, para um novo registro, no meu caso: "Cliente"

Tentei declarar uma TStringList e fazer a extração dos valores, sem sucesso.
Willian Rodrigues

Willian Rodrigues

Curtidas 1

Melhor post

Lucas Santato

Lucas Santato

11/08/2022

Olá Pessoal! !
Precisando de um auxílio aqui.

Tenho uma TRxDBComboBox com os valores:

C=Cliente
F=Fornecedor

Basicamente gostaria de atribuir um valor existente na combo, para um novo registro, no meu caso: "Cliente"

Tentei declarar uma TStringList e fazer a extração dos valores, sem sucesso.

Pelo que eu entendi, você quer extrair o "C" de Values? se for isso
:= TRxDBComboBox.Values[0]

Caso não seja isso, peço que explique melhor a sua dúvida e se possível colocar uma parte do código aqui para a gente.
GOSTEI 1

Mais Respostas

Emerson Nascimento

Emerson Nascimento

10/08/2022

não sei se entendi a dúvida, mas na TRxDBComboBox há duas propriedades básicas para uso:

Items
Values

em Items você coloca o que o usuário vai enxergar.
Cliente
Fornecedor

em Values você coloca o que será gravado no banco de dados.
'C'
'F'

Items e Values precisam ter o mesmo número de itens, e na mesma ordem, porque há uma relação 1 x 1 entre elas
GOSTEI 0
Willian Rodrigues

Willian Rodrigues

10/08/2022

Exatamente isso Lucas!!

Deu certo, debuguei e os valores estão corretos!!
mas a Combo não está sendo atualizada, sabe me dizer o que pode ser?


GOSTEI 1
Lucas Santato

Lucas Santato

10/08/2022

Exatamente isso Lucas!!

Deu certo, debuguei e os valores estão corretos!!
mas a Combo não está sendo atualizada, sabe me dizer o que pode ser?



Não entendi, não está sendo atualizada em que sentido? se tiver algum outro meio de comunicação, fica melhor kkkk pq se não esse fórum vai virar um bate-papo.
GOSTEI 0
Willian Rodrigues

Willian Rodrigues

10/08/2022

Apanhei muito kkkk mas consegui resolver aqui, de qualquer forma muito obrigado ao Emersom e Lucas.

Estava fazendo assim: CLIFORNEC.values[0] := 'C';

O jeito que deu certo: fdqry.FieldByName('CLIFORNEC').AsString := 'C';


Abraços!
GOSTEI 1
Evandro Bossi

Evandro Bossi

10/08/2022

Eu estou tentando fazer uma pesquisa incremental utilizando um dblookupcombodlg mas retorna vazio.

if LC_produto.Text <>'' then
begin
dm.sql_pesqprod.close;
dm.cds_pesqprod.close;
dm.sql_pesqprod.parameters.parambyname('descr').value:='%' + lc_produto.text +'%';
dm.sql_pesqprod.open;
dm.cds_pesqprod.Open;
lc_produto.SetFocus;
end;

Alguém pode me ajudar.
GOSTEI 0
POSTAR