PREENCHER LISTVIEW QUE FUNCIONE

MARCOS 15/12/2010 14:41:57
#359609
Boa tarde, colegas!
Apesar de ter encontrado diversos exemplos na internet
sobre o controle ListView no VB.NET.Nenhum deles funcionou.
Por isto peço aos colegas que puderem ajudar:


O problema:

Eu tenho um DataSet (Ds1), que já esta preenchido com
uma única tabela ( 250 linhas):

- TbCliente ( Cod,Endereco,Tel)

Preciso de um código que me permita transportar para um ListView ( Lst1 )
o conteúdo deste Dataset.

Algum colega pode ajudar?
RODRIGOFERRO 15/12/2010 14:46:33
#359610 Resposta escolhida
Amigo neste link nosso amigo FOXMAN te da um exemplo funcionando, de conexao e preenximento.

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8139

e realmente funciona, porque eu mesmo já testei.. tanto usando DATASET como DATAREADER...

Abraços
MARCOS 16/12/2010 14:04:52
#359673
ZeroCal, muito obrigado!
Resolveu meu problema. Mas esbarrei em outro problema que o exemplo nao
ajuda! Eu já consegui fazer o ListView, exibir os dados do meu Dataset.
Mas, nao estou conseguindo fazer com que os itens selecionados no ListView,
carreguem uma variável vetor chamada Itens_selecionados().Como faço
para ler no ListView, somente os itensC selecionados pelo usuário?????
WEBSTERGONTIJO 16/12/2010 14:19:09
#359674
Vou lhe passar um codigo meu aki que faz isso que vc precisa, caso nao consiga com dataset, utilize o datatable!


Executo a pesquisa aki!

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
ListView1.Items.Clear()
cl.open()
cl.executeQuery([Ô]select * from cad_imb[Ô])
pesquisa_auto()
End If
End Sub

Aki executo o resultado da minha pesquisa e jogo para o listview

Private Sub pesquisa_auto()
Try
Dim dt As Data.DataTable = cl.getResult
For I As Integer = 0 To dt.Rows.Count - 1
Try
Dim ITEM As New ListViewItem
ITEM.Text = (dt.Rows(I).Item([Ô]CODIGO[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]DESCRICAO[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]SETOR[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]FILIAL[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]NNOTA[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]VALOR[Ô]))
ITEM.SubItems.Add(dt.Rows(I).Item([Ô]ATIVO_INATIVO[Ô]))
ListView1.Items.Add(ITEM)
Catch EX As Exception
MsgBox([Ô]TESTE[Ô])

End Try

Next
Catch ex As SqlClient.SqlException
MsgBox([Ô]Procure o suporte[Ô], ex.Message)
End Try
End Sub
MARCOS 16/12/2010 15:09:57
#359681
Colegas,
Eu preciso [Ô]ler[Ô] do ListView, somente os itens que foram
selecionados pelo usuário. ( E jogar em uma variável ).

Algum colega sabe????
FOXMAN 16/12/2010 15:17:26
#359682
Citação:

:
Colegas,
Eu preciso [Ô]ler[Ô] do ListView, somente os itens que foram
selecionados pelo usuário. ( E jogar em uma variável ).

Algum colega sabe????



dim suavariavel as string
dim i as integer
for i = 0 to seulist.items.count -1 
if seulist.items(i).selected = true then
suavariavel = seulist.items(i).text  [ô] isso para a primeira coluna
[ô]para as demais vc utiliza o subitens
suavariavel = seulist.items(i).subitems(1).text [ô] isso para segunda coluna
end if
next


Ve se funfa.
RODRIGOFERRO 17/12/2010 11:58:16
#359759
Tópico encerrado , respostas não são mais permitidas
Voltar