| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
lucdepaula
Novato
Registrado: Segunda-Feira, 28 de Mai de 2012
Mensagens: 71
Localização: Morro Agudo - SP
|
 Enviada: Ter Ago 07, 2012 6:19 pm Assunto: [RESOLVIDO] Combobox |
 |
|
Boa Noite!!!
Criei um Form de Cadastro de produtos e nele coloquei um combobox e nos itens as unidade, ex.un,pc,kg... até ai blz.
Tá gravando no banco de dados Access, só que quando eu visualizo o form ele não traz no combobox o dado que está gravado na tabela...
para gravar eu fiz como abaixo.
procedure TFormProdutos.ComboBox1Change(Sender: TObject);
begin
Table_Produtos.Open;
Table_ProdutosPR_Unidade.Text := Combobox1.Text;
end;
não sei mas eu acho que tenho que fazer algo pra ele mostra o que está gravado na hora de abrir o form...
Editado pela última vez por lucdepaula em Sáb Ago 11, 2012 6:20 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Ago 07, 2012 9:02 pm Assunto: |
|
|
Boa noite,
Experimente executar o código abaixo para posicionar o ComboBox no item gravado na tabela:
| Código: | | ComboBox1.ItemIndex := ComboBox1.IndexOf(Table_ProdutosPR_Unidade.AsString); |
Espero que ajude.
Editado pela última vez por imex em Ter Out 03, 2023 3:48 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
lucdepaula
Novato
Registrado: Segunda-Feira, 28 de Mai de 2012
Mensagens: 71
Localização: Morro Agudo - SP
|
| Enviada: Ter Ago 07, 2012 9:12 pm Assunto: |
|
|
Eu coloquei só que dá um erro na compilação...
[Error] U_PRODUTOS.pas(266): Undeclared identifier: 'IndexOF' |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Ago 07, 2012 9:19 pm Assunto: |
|
|
Desculpe, postei errado:
| Código: | | ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(Table_ProdutosPR_Unidade.AsString); |
Espero que ajude. |
|
| Voltar ao Topo |
|
|
lucdepaula
Novato
Registrado: Segunda-Feira, 28 de Mai de 2012
Mensagens: 71
Localização: Morro Agudo - SP
|
| Enviada: Qua Ago 08, 2012 6:05 am Assunto: |
|
|
| não sei se fiz certo, eu coloquei junto junto com o código que eu postei acima e continuou do mesmo jeito. |
|
| Voltar ao Topo |
|
|
maizena
Colaborador
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
|
| Enviada: Qua Ago 08, 2012 8:08 am Assunto: |
|
|
tente assim
| Código: |
begin
COMBO.Clear;
QUERY.Close;
QUERY.SQL.Clear;
QUERY.SQL.Text:='select SEUCAMPO from SUATABELA group by SEUCAMPO';
QUERY.Open;
QUERY.Prior;
while not QUERY.Eof do
begin
COMBO.Items.Add(QUERY.fieldbyname('SEUCAMPO').AsString);
DM.QUERY.Next;
end;
|
Espero que ajude
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch |
|
| Voltar ao Topo |
|
|
Luciano_Lopes
Colaborador
Registrado: Quarta-Feira, 23 de Abril de 2008
Mensagens: 1080
|
| Enviada: Qua Ago 08, 2012 8:23 am Assunto: |
|
|
| Código: | while not QUERY.Eof do
begin
COMBO.Items.Add(QUERYSEUCAMPO.value);
DM.QUERY.Next;
end; |
|
|
| Voltar ao Topo |
|
|
maizena
Colaborador
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
|
| Enviada: Qua Ago 08, 2012 8:31 am Assunto: |
|
|
| Luciano_Lopes escreveu: | | Código: | while not QUERY.Eof do
begin
COMBO.Items.Add(QUERYSEUCAMPO.value);
DM.QUERY.Next;
end; |
|
Isso
| Código: |
while not QUERY.Eof do
begin
COMBO.Items.Add(QUERY.fieldbyname('SEUCAMPO').AsString);
DM.QUERY.Next;
end;
|
Não é o mesmo que isso????
| Código: |
while not QUERY.Eof do
begin
COMBO.Items.Add(QUERYSEUCAMPO.value);
DM.QUERY.Next;
end;
|
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch |
|
| Voltar ao Topo |
|
|
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qua Ago 08, 2012 8:49 am Assunto: |
|
|
Tá, vamos lá...
No banco de dados, você gravou o que, o índice do combo ou o text ???
Eu também uso combobox, mas criei uma rotina para poder fazer desse jeito... |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qua Ago 08, 2012 10:06 am Assunto: |
|
|
Experimente utilizar o código que sugeri no evento AfterScroll de Table_Produtos.
Espero que ajude. |
|
| Voltar ao Topo |
|
|
lucdepaula
Novato
Registrado: Segunda-Feira, 28 de Mai de 2012
Mensagens: 71
Localização: Morro Agudo - SP
|
| Enviada: Qui Ago 09, 2012 5:46 am Assunto: |
|
|
| imex escreveu: | Experimente utilizar o código que sugeri no evento AfterScroll de Table_Produtos.
Espero que ajude. |
Muito Obrigado!!! Deu certo colocando no evento AfterScroll... |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qui Ago 09, 2012 10:11 am Assunto: |
|
|
| Blz, agradecemos o retorno. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
