DADOS NO LIST
Com o código abaixo eu relaciono em um ListBox na horizontal conforme figura. Na figura depois do ultimo numero vem um traço q tambem configuro no codigo, pergunto, como eu tiro esse ultimo traço?
Outra, carregando os dados verticalmente no listBox eu consigo salientar o texto e nesse caso é possivel?
Private Function Verefica2()
ConexãoGeral
Dim Sql_X As String
Dim Dado As String
Set RstImp = New ADODB.Recordset
Sql_X = [Ô]SELECT LM_3 FROM LMnr WHERE Status = [ô]Pendente[ô][Ô]
Set RstImp = Banco1.Execute(Sql_X)
If RstImp.RecordCount = 0 Then
Listx.Clear
Else
Listx.Clear
Do Until RstImp.EOF
Dado = Dado & RstImp([Ô]LM_3[Ô]) & [Ô] [Ô] & [Ô]-[Ô] & [Ô] [Ô] & [Ô][Ô]
RstImp.MoveNext
Loop
Listx.AddItem Trim(Dado)
End If
[ô]Desconect_2
End Function
Tenta isto IRENKO
Do Until RstImp.EOF
If Not RstImp.EOF Then
Dado = Dado & RstImp([Ô]LM_3[Ô]) & [Ô] [Ô] & [Ô]-[Ô] & [Ô] [Ô] & [Ô][Ô]
Else
Dado = Dado & RstImp([Ô]LM_3[Ô])
End If
RstImp.MoveNext
Loop
não sei se vai funcionar é apenas uma idéia
Do Until RstImp.EOF
If Not RstImp.EOF Then
Dado = Dado & RstImp([Ô]LM_3[Ô]) & [Ô] [Ô] & [Ô]-[Ô] & [Ô] [Ô] & [Ô][Ô]
Else
Dado = Dado & RstImp([Ô]LM_3[Ô])
End If
RstImp.MoveNext
Loop
não sei se vai funcionar é apenas uma idéia
Marcelo, valeu pela ideia mas a mesma não funcionou.
Então tá mas o caminho é este mesmo
faça o seguinte então
agora vai
faça o seguinte então
Do Until RstImp.EOF
Dado = Dado & RstImp([Ô]LM_3[Ô]) & [Ô] [Ô] & [Ô]-[Ô] & [Ô] [Ô] & [Ô][Ô]
RstImp.MoveNext
Loop
Listx.AddItem Mid(Trim(Dado),1,Len(Dado) - 2)agora vai
Marcelo, deu certo! E quanto a minha segunda dúvida, é possivel salientar o texto no ListBox horizontal?
Só não entendi. Como assim salientar o texto na horizontal?
No click do List. Suponhamos, eu dou o click em um dos numeros do List para seleciona-lo, tendeu?
Citação:IRENKO escreveu:
No click do List. Suponhamos, eu dou o click em um dos numeros do List para seleciona-lo, tendeu?
Não.
[S34]
Esse é o listBox onde carrego verticalmente, nele posso selecionar. No primeiro q postei a imagem tem jeito?
Não Irenko, não tem, qual seriam suas opções
ou usar o flexgrid sem a grade para simular o listbox, e colocar cada valor em uma coluna, ou com grade mesmo.
ou o listview
ou usar o flexgrid sem a grade para simular o listbox, e colocar cada valor em uma coluna, ou com grade mesmo.
ou o listview
Blz então Marcelo! Essa ideia de usar o Grid como um ListBox parece ser boa, acontece q poderia ser até, digamos 50 colunas. Bom, seria possivel um exemplo desse Grid somente com a celulas? Caso não seja, fico muito grato pela sua primeira ajuda.
Tópico encerrado , respostas não são mais permitidas