Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2005 10:03 hs
Sim eu vou selecionar mais de um funcionário
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Snake
|
ITAJUBÁ
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/02/2005 10:06 hs
e como vc quer enviar os nomes para um text?
separado ....por vigula...?
como sera paresentado na tela?
sem mais,
|
|
|
|
|
|
Postada em 09/05/2005 12:00 hs
Snake... beleza ? você fazendo dessa maneira pra verificar ele só vai pegar o que tiver o foco ... em linguagem de usuario .. só o que estiver azulzinhu .. vamos supor q eu tenha 5 ... e eu ticke o primeiro e o terceiro ... o foco ficou no terceiro .. na hora de mostrar o nome ele vai mostrar só do terceiro .. embora tenha como eu saber q sao 2 tickados... mas mostrar quem está tickado ele vai mostrar só o terceiro ... estou certo ???
 ¿? AndrePaulo ¿?
|
|
|
|
Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2005 12:13 hs
Bom galera pra finalizar este tópico eu consegui fazer assim ja que a minha intenção era incluir em um uma tabela os itens selecionados no ListView, funcionou beleza obrigado a todos por me ajudarem. For I = 1 To ListView1.ListItems.Count If ListView1.ListItems(I).Checked Then
Dim tvalet As Recordset 'Define a tabela para VALETRANPORTE
Dim banco As Database'Define como banco de dados Set banco = OpenDatabase("z:administrador_RhBanco.mdb") 'Abre o banco de dados
Set tvalet = banco.OpenRecordset("Select * from valetransporte") 'Abre a tabela VALETRANPORTE
Set TALIMENTACAO = banco.OpenRecordset("Select * from alimentacao")
'Inclui as informações do vale transporte no banco de dados
tvalet.AddNew 'Inicia a inclusão da informações
tvalet!nome_funcionario = ListView1.ListItems.item(I).SubItems(1) 'Campo nome do funcionário
tvalet!quantidade_vale_onibus = ListView1.ListItems.item(I).SubItems(7) 'Campo quantidade vale ônibus
tvalet!quantidade_vale_metro = ListView1.ListItems.item(I).SubItems(8) 'Campo quantidade vale metrô
tvalet!quantidade_vale_outros = ListView1.ListItems.item(I).SubItems(9) 'Campo data de entrega do vale transporte
tvalet!data_entrega = TxtData_Entrega.Text 'Campo data de entrega do vale transporte
tvalet!Data_Inicial = Txtdata_inicial.Text 'Campo data inicial
tvalet!Data_Final = Txtdata_final.Text 'Campo data final
tvalet!filial = ListView1.ListItems.item(I).SubItems(10) 'Campo filial
tvalet.Update 'Salva as informaçoes no banco de dados
tvalet.Close
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
|
|
Postada em 09/05/2005 12:35 hs
Ae Luciano ... não fecha o tópico não por favor... pq estou tentando usar o listbox com check pra fazer essa tarefa .. mas não consigo fazer o programa retornar o valor da "linha" que está checkada ... e sim ele só me retorna a linha que está selecionada ... estando ou não checkada.. alguém sabe como faço pra retornar ??
¿? AndrePaulo ¿?
|
|
|
|
|
|
Postada em 09/05/2005 13:20 hs
AEEEEEEEE CONSEGUIIIIIIIIIIiiiiiiiiiii ai vai o código c = 0
Do While Not c = list1.ListCount
list1.ListIndex = c
If list1.Selected(c) = True Then
MsgBox CStr(list1.ItemData(list1.ListIndex)) & " - " & list1.Text
End If
c = c + 1
Loop é isso ae ....
¿? AndrePaulo ¿?
|
|
|
|
