MASCARA LISTVIEW VB.NET

PHELIPO 03/09/2013 10:34:44
#428433
Bom dia !
Preciso de uma ajuda
Estou usando vb.net
Quero popular uma coluna do ListView com o Formato de CPF(###.###.###-##) ou cnpj(##.###.###/####-##) quando faço a pesquisa no banco, Não estou conseguindo usar esta mascara, quem poder me ajudar eu agradeço.

Exemplo:

If Len(tbOS.Rows(0).Item([Ô]cpf_cnpj[Ô])) > 11 Then

[ô]CNPJ
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]cpf_cnpj[Ô]).ToString())

Else

[ô]CPF
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]cpf_cnpj[Ô]).ToString())

End If
PEGUDO 03/09/2013 14:04:40
#428444 Resposta escolhida
Acho que desta forma não precisarás de colocar o If...Then.
Estou supondo que os dígitos de CPF e CNPJ não têm ponto nem barra.
PHELIPO 03/09/2013 22:41:12
#428466

Boa Noite Pegudo!

Desta maneira quando passa no For para popular o ListView a pesquisa estar pegando somente o primeiro cpf ou cnpj para todos os outros registros que passa no For.
Se voce poder me Ajudar eu agradeço.

Dim ItemPesqOS As ListViewItem = Nothing

For I As Integer = 0 To tbOS.Rows.Count - 1

ItemPesqOS = New ListViewItem [ô]Instanceia a variavel

ItemPesqOS.Text = tbOS.Rows(I)([Ô]num_ordem[Ô]).ToString()
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]nome[Ô]).ToString())
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]nome_g[Ô]).ToString())
Dim Param As String = CPF_CNPJ(tbOS.Rows(0).Item([Ô]cpf_cnpj[Ô]))
ItemPesqOS.SubItems.Add(Param)
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]data_ordem[Ô]))
ItemPesqOS.SubItems.Add(tbOS.Rows(I)([Ô]data_entrega[Ô]))
lstPesqos.Items.Add(ItemPesqOS)

ItemPesqOS = Nothing

Next


Public ReadOnly Property CPF_CNPJ(ByVal Parametro As String) As String
Get
CPF_CNPJ = String.Empty
Select Case Parametro.Length
Case 11
CPF_CNPJ = Parametro.Insert(3, [Ô].[Ô]).Insert(7, [Ô].[Ô]).Insert(11, [Ô]-[Ô])
Case Else
CPF_CNPJ = Parametro.Insert(2, [Ô].[Ô]).Insert(6, [Ô].[Ô]).Insert(10, [Ô]/[Ô]).Insert(15, [Ô]-[Ô])
End Select
End Get
End Property
PEGUDO 04/09/2013 07:46:38
#428468
é porque o [Ô]Rows[Ô] está setado como [Ô]0[Ô] (zero).
[txt-color=#0000f0]Dim[/txt-color] Param [txt-color=#0000f0]As String [/txt-color]= CPF_CNPJ(tbOS.Rows(0).Item([txt-color=#e80000][Ô]cpf_cnpj[Ô][/txt-color]))

Coloque a variável do [txt-color=#0000f0]FOR[/txt-color] no lugar do Zero, depois de [txt-color=#0000f0]Rows[/txt-color]:
Dim Param As String = CPF_CNPJ(tbOS.Rows([txt-color=#0000f0]I[/txt-color]).Item([Ô]cpf_cnpj[Ô]))
PHELIPO 04/09/2013 11:04:07
#428478
Valeu, Pegudo!
Agora deu certo.
Tópico encerrado , respostas não são mais permitidas
Voltar