ITEMDATA DO COMBOBOX

SINKERTEC 15/12/2009 22:13:26
#329785


Boa noite galera!!

Pessoal, fiz um eskema assim: Ordenei um tabela pelo nome, e adicionei em um combobox esse nome no text e o código no itemdata como abaixo?
Text ItemData
A 3
B 5
C 1
D 4
E 2

Então...qdo eu salvo na tabela, eu salvo o código e não o nome

Minha dúvida é: Tem como eu selecionar o nome, baseado nesse ItemData?

Tipo...se o código for o 3, qual o comando q eu teria que fazer pra mostrar o nome C direito

Sem precisar localizar na tabela claro!

grato a todos!
EDERMIR 16/12/2009 00:04:47
#329787
Todo este tempo e eu tenho que esplicar para você?????
.
.
.
Estou apreciando o momento
.
.
.
AAAAAHHHHHHH
.
.
.
Bom, acredito que você quer saber como saber qual o nome NA TABELA referente ao nome no ITEMDATA de um combo.
Resposta bem simples:
For Wx = 0 to combo1.listcount-1
    if combo1.itemdata(Wx) = Wvalordesejado then
        msgbox(combo1.list(Wx))
        exit for
    endif
next Wx


Outra forma é você carregar uma varíavel ARRAY e colocar na posição do ITEMDATA o nome desejado. Então basta:
msgbox(WVARIAVEL_COM_NOME(Wx))
WHELLNET 16/12/2009 07:36:04
#329789
Já puxando da tabela direto
For i = 0 To Combo.ListCount - 1
   If Combo.ItemData(i) = Rs([Ô]Codigo[Ô]) Then
      Combo.ListIndex = i
      Exit For
   End If
Next i
[ô]Aqui você eu verifico se ele achou algo na lista, se caso não eu coloco na primeira posição
[ô]é como se fosse o padrão
If Combo.ListIndex = -1 Then Combo.ListIndex = 0
SINKERTEC 17/12/2009 14:06:57
#329924

GRANDE EDERMIR!!

EHUAH EUAHUEAHUE


NA VDD ASSIM....TEM COMO FAZER TIPO ISSO?

TEXT1 = COMBO1.ITEMDATA( TABELA!CODIGO)

MAS O TEXT MOSTRAR O TEXTO DO COMBO REFERENTE AO ITEMDATA?

VALEW
TECLA 17/12/2009 14:10:37
#329925
Crie uma função que te devolva a DESCRIÇÃO.

Exemplo:
Text1 = descProduto(TABELA!CODIGO)


Função:
Function descProduto (Codigo As Integer) As String
[txt-color=#006400][ô]Aqui você adequa a rotina do colega EDERMIR[/txt-color]
End Function
ROBIU 17/12/2009 15:11:03
#329933 Resposta escolhida
O listIndex da combo vai pegar o index do item selecionado. Como podemos usar o index nesta propriedade fica fácil.

Combo1.ItemData(Combo2.ListIndex)


Acredito que isso já resolve. Agora tenho uma sujestão.

Pega dois ou mais campos da tabela e coloca no combo, separando-os com um [Ô]|[Ô] ou um [Ô]-[Ô]. Então vai aparecer na combo os dois campos. Quando for gravar ou jogar para as textbox, usa uma função para separar os campos. (Str, instr, mid etc)

Veja esse fonte com as duas opções
SINKERTEC 21/12/2009 11:13:26
#330162

é ROBIU...

ACHO Q SERIA A FORMA MAIS SIMPLES E RÁPIDA PRA FAZER ISSO...EU HAVIA PENSADO NISSO..MAS QUIS AGILIZAR...E NUM DEU

ASSIM DIMINUIRIA O ACESSO AO BANCO DE DADOS...AGILIZANDO O PROCESSO!!

SRS....AGRADEÇO A TODOS!

ABRAÇOS

FELIZ NATAL PRA TODOS!!
Tópico encerrado , respostas não são mais permitidas
Voltar