POPULAR COMBO

 Tópico anterior Próximo tópico Novo tópico

POPULAR COMBO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#485277 - 08/11/2018 15:23:43

XAVIER
BHTE-MG
Cadast. em:Julho/2009


Última edição em 08/11/2018 15:29:51 por XAVIER

Olá Pessoal!

Como que eu faço para popular combobox da seguinte forma:
Tenho várias descrições, umas que iniciam com  "_" underline   tipo assim, _AAAAA, _BBBBBB e outras sem o underline inicial.
Preciso popular minha combo somente com as descrições que iniciam com underline " _".
Desde já agradeço a ajuda.




#485278 - 08/11/2018 15:41:15

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Selecione somente os dados que quer preencher na combo...

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485280 - 08/11/2018 15:44:27

XAVIER
BHTE-MG
Cadast. em:Julho/2009


Última edição em 08/11/2018 15:45:02 por XAVIER

Olá meu amigo KERPLUNK!

Busco em uma lista dinâmica. Sempre altera uma descrição ou outra. Por isso preciso buscar nesta lista as descrições que iniciam com _ underline. Seja ela qual for. Se fossem descrições fixas, aí seria tranquilo.




#485281 - 08/11/2018 15:45:22

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Os dados não estão vindo de uma tabela?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485282 - 08/11/2018 15:50:33

XAVIER
BHTE-MG
Cadast. em:Julho/2009


Última edição em 08/11/2018 15:51:04 por XAVIER

Não.
Eles vêm da lista de layers que são gerados no AutoCad de forma aliatória.




#485283 - 08/11/2018 15:52:53

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Fácil, faça uma busca iniciando pelo _

select * from suatabela where nomecampo like '_*' ou select * from suatabela where nomecampo like '_%'

depende onde vc for usar é uma das duas nomenclaturas

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#485284 - 08/11/2018 16:11:29

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
É um array? Que tipo é que vem?

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#485286 - 08/11/2018 16:30:05

XAVIER
BHTE-MG
Cadast. em:Julho/2009


Última edição em 08/11/2018 16:30:49 por XAVIER

Consegui pessoal!!!
Agradeço a todos pelo esforço.

Vou deixar o exemplo aqui funcional. Lembrando que não está buscando em nenhuma tabela e sim do standard de layers do AutoCad. Mas é só adaptar a idéia na necessidade pra quem precisar.

Código...

Sub cLayers()
'
  Dim entry As AcadLayer

  cboSelElem.Clear
  For Each entry In ThisDrawing.Layers
      
       descricao = Mid$(entry.Name, 1, 1) ' < 1,1 vai capturar somente o primeiro caracter, não importa o tamanho da descrição ou palavra.
      
       If descricao = "_" Then   ' se primeiro caracter for "_" então adiciona à combobox.
         cboSelElem.AddItem entry.Name
       End If
      
  Next

End Sub




Resposta escolhida #485287 - 08/11/2018 16:34:22

JABA
CABO FRIO
Cadast. em:Agosto/2005


É só percorrer os seu dados verificando se o primeiro item é um "_". Caso seja, adicione-o na combo. Ex:

dim i as integer
for i=0 to ubound(dados)-1
   if  Left$(dados(i), 1) = "_" then
       combo.additem dados(i)
  end if  
next


_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#485288 - 08/11/2018 16:39:24

XAVIER
BHTE-MG
Cadast. em:Julho/2009






 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por XAVIER em 08/11/2018 16:40:21