Listview

[Guest Guest]

oi pessoal eu de novo como ta, beleza, como faço pra inserir mais um coluna no meu listview, eu to com esse codigo no load , ate ai beleza eu tava tentando e consegui inserir a coluna cep mas.... esta invertendo com a coluna Estado como posso fazer pra funcionar isso esse codigo esta no loada

With lsvClientes

.ColumnHeaders.Add , , "Codigo", lsvClientes.Width / 8

.ColumnHeaders.Add , , "Nome", lsvClientes.Width / 2.5

.ColumnHeaders.Add , , "Cidade", lsvClientes.Width / 3

.ColumnHeaders.Add , , "CEP", lsvClientes.Width / 3

.ColumnHeaders.Add , , "Estado", lsvClientes.Width / 8, lvwColumnCenter

' Set View property to Report.

.View = lvwReport

esse aki é um private que carrega os dados do cliente

Public Sub CarregaCliente()

lsvClientes.ListItems.Clear

If TabelaConsulta.RecordCount <> 0 Then

While Not TabelaConsulta.EOF

Set NewItem = lsvClientes.ListItems.Add(, , TabelaConsulta("codigo"))

NewItem.SubItems(1) = " " & Left(TabelaConsulta("Nome"), 38)

NewItem.SubItems(2) = " " & TabelaConsulta("Cidade")

NewItem.SubItems(3) = " " & TabelaConsulta("Estado")

NewItem.SubItems(4) = " " & TabelaConsulta("CEP")

TabelaConsulta.MoveNext

Wend

End If

TabelaConsulta.Close

End Sub

e esse aki é onde eu faço a consulta

Dim dado(5) As String, ConsultaSQL As String, MontaString As Boolean

Dim mPrimeiro As Boolean

Dim i As Integer

ConsultaSQL = ""

ConsultaSQL = "SELECT * FROM Clientes WHERE "

MontaString = True

mPrimeiro = True

dado(1) = ""

dado(2) = ""

dado(3) = ""

dado(4) = ""

dado(5) = ""

If Len(txtCodigo.Text) <> 0 Then

dado(1) = "[CODIGO] LIKE '" & txtCodigo.Text & "*'"

End If

If Len(txtSocial.Text) <> 0 Then

dado(2) = "[Nome] LIKE '" & txtSocial.Text & "*'"

End If

If Len(txtCidade.Text) <> 0 Then

dado(3) = "[Cidade] LIKE '" & txtCidade.Text & "*'"

End If

If Len(txtEstado.Text) <> 0 Then

dado(4) = "[Estado] LIKE '" & txtEstado.Text & "*'"

End If

If Len(txtcep.Text) <> 0 Then

dado(5) = "[CEP] LIKE '" & txtcep.Text & "*'"

End If

For i = 1 To 5

If Len(dado(i)) <> 0 Then

If mPrimeiro Then

ConsultaSQL = ConsultaSQL & dado(i)

mPrimeiro = False

Else

ConsultaSQL = ConsultaSQL & " And " & dado(i)

End If

End If

Next

Set dbCadastro = OpenDatabase(App.Path & "\GerCom.mdb", False, False)

Set TabelaConsulta = dbCadastro.OpenRecordset(ConsultaSQL, dbOpenSnapshot)

CarregaCliente

End Sub

[Graymalkin]

Brother,

Saca só:

.ColumnHeaders.Add , , "CEP", lsvClientes.Width / 3
.ColumnHeaders.Add , , "Estado", lsvClientes.Width / 8, lvwColumnCenter

NewItem.SubItems(3) = " " & TabelaConsulta("Estado")
NewItem.SubItems(4) = " " & TabelaConsulta("CEP")

No primeiro, vem o CEP e depois o Estado. No segundo, vem o Estado e depois o CEP. Basta inverter um dos dois, não?

Abraços,

Graymalkin