Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest Guest

Listview

Question

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

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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? wink.gif

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148116
    • Total Posts
      643397
×
×
  • Create New...