COLUNA LISTVIEW

GUTO 12/03/2005 19:21:26
#72623
oi pessoal eu de novo como ta, blz, como faço pra inserir mais um coluna no meu listview, eu to com esse codigo no load , ate ai blz 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
RAMON 12/03/2005 19:26:25
#72626 Resposta escolhida
Por que vc não criaa uam listview usando o controel e depois ajustando as propiedades
GUTO 12/03/2005 19:27:23
#72627
eu to tentano faze uma consulta sobre consulta ta ligado , ?
RAMON 13/03/2005 09:37:52
#72738
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?


GUTO 13/03/2005 17:40:12
#72787
Opa obrigado por postar , eu inverti os dadso e o txtcep vei num nunfunciona de jeito nenhum, o que seria esse s numeros aki 8 ; 2.5;3,3 8 ?
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
GUTO 13/03/2005 20:03:52
#72837
alguem
RAMON 13/03/2005 21:43:53
#72857
Qual é o erro exatamente que ta dando?
THIAGO.CESAR 14/03/2005 08:30:47
#72884
Esses números (8, 2.5, etc) são para deixar a coluna proporcional ao tamanho da Lista.

Repetindo:
Citação:

Qual é o erro exatamente que ta dando?
GUTO 14/03/2005 09:11:39
#72891
Esse codigo acima e de um lisview que eu tenho , ele tem os campos codigo , estado, cidade, razao Social, e CEP , todos os campos do meu programa pega so nuan pega , esse CEP so esse txt que naun pega , pq tipo ao vc colocar por exemplo o 0(zero), bo campo codigo , intantaeo ja aparece no listview todos os campos com esse codigo
GUTO 14/03/2005 12:26:01
#72917
entendeu
THIAGO.CESAR 14/03/2005 12:37:01
#72921
Sinceramente, não entendi
Onde está
NewItem.SubItems(1) = " " & Left(TabelaConsulta("Nome"), 38)
NewItem.SubItems(2) = " " & TabelaConsulta("Cidade")
NewItem.SubItems(3) = " " & TabelaConsulta("Estado")
NewItem.SubItems(4) = " " & TabelaConsulta("CEP")
Substitua por
NewItem.ListSubItems.Add ,, "" & Left(TabelaConsulta("Nome"), 38)
NewItem.ListSubItems.Add ,, "" & TabelaConsulta("Cidade")
NewItem.ListSubItems.Add ,, "" & TabelaConsulta("Estado")
NewItem.ListSubItems.Add ,, "" & TabelaConsulta("CEP")

E tente ser um pouco mais claro, aqui em baixo você me complicou mais ainda...[S80]
Página 1 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar