AJUDA COM LIST VIEW
Boa tarde glr...
oq está errado no código ?
eu to estudando sozinho p aprende a mexer
ta assim meu código
Function enchelist()
On Error Resume Next
dsproduto.Close
Dim List1 As ListItem
[ô]On Error GoTo fim
Do While Not dsproduto.EOF
dsproduto.FindFirst [Ô]codigo = [Ô] & dsproduto!codigo
List1 = List1.ListItems.Add
List1.SubItems(1) = dsproduto!codigo
List1.SubItems(2) = dsproduto!descricao
List1.SubItems(3) = Text5
total = CCur(Text5) * CCur(precovenda)
tot = CCur(total) * CCur(Text4) / 100
List1.SubItems(4) = tot
Loop
End Function
da erro method or member not found na palavra [Ô].ListItems[Ô]
List1 = List1.ListItems.Add NESSA LINHA
alguem ai me ajuda a usar corretamente?
Obrigado
oq está errado no código ?
eu to estudando sozinho p aprende a mexer
ta assim meu código
Function enchelist()
On Error Resume Next
dsproduto.Close
Dim List1 As ListItem
[ô]On Error GoTo fim
Do While Not dsproduto.EOF
dsproduto.FindFirst [Ô]codigo = [Ô] & dsproduto!codigo
List1 = List1.ListItems.Add
List1.SubItems(1) = dsproduto!codigo
List1.SubItems(2) = dsproduto!descricao
List1.SubItems(3) = Text5
total = CCur(Text5) * CCur(precovenda)
tot = CCur(total) * CCur(Text4) / 100
List1.SubItems(4) = tot
Loop
End Function
da erro method or member not found na palavra [Ô].ListItems[Ô]
List1 = List1.ListItems.Add NESSA LINHA
alguem ai me ajuda a usar corretamente?
Obrigado
leo frib nao entendi
vc colocou campos ai q nao tem no meu rs
eu queria saber onde eu errei na sintaxe ou algo assim
se precisa de um component ou reference q eu nao selecionei
obrigado de novo
vc colocou campos ai q nao tem no meu rs
eu queria saber onde eu errei na sintaxe ou algo assim
se precisa de um component ou reference q eu nao selecionei
obrigado de novo
List1 = List1.ListItems.Add
Nessa linha vc tem q adicionar algo, geralmente códigos.
List1 = List1.ListItems.Add(, , dsproduto!codigo)
List1.SubItems(1) = dsproduto!descricao
List1.SubItems(2) = Text5
total = CCur(Text5) * CCur(precovenda)
tot = CCur(total) * CCur(Text4) / 100
List1.SubItems(3) = tot
Nessa linha vc tem q adicionar algo, geralmente códigos.
List1 = List1.ListItems.Add(, , dsproduto!codigo)
List1.SubItems(1) = dsproduto!descricao
List1.SubItems(2) = Text5
total = CCur(Text5) * CCur(precovenda)
tot = CCur(total) * CCur(Text4) / 100
List1.SubItems(3) = tot
continua o erro method or data member not found
Tanta assim..
List1 = New ListViewItem([Ô]ITEM1[Ô])
With List1.SubItems
.Add([Ô]ITEM1[Ô])
.Add([Ô]ITEM2[Ô])
.Add([Ô]ITEM3[Ô])
End With
List1.Items.Add(List1)
List1 = New ListViewItem([Ô]ITEM1[Ô])
With List1.SubItems
.Add([Ô]ITEM1[Ô])
.Add([Ô]ITEM2[Ô])
.Add([Ô]ITEM3[Ô])
End With
List1.Items.Add(List1)
Vou te mandar a rotina completa, esse metodo not foud, deve ser que voce esta usando o imagelist, mas nao setou na propriedade do list.
Sub ListUsuarios()
Dim RS As Recordset
On Error GoTo ErrorHandler
caminho = ReadINI([Ô]Geral[Ô], [Ô]Caminho[Ô], App.Path & [Ô]\Config.ini[Ô])
Set DB = DBEngine.OpenDatabase(caminho)
sql = [Ô]Select * from CadUser where CodigoPerfil=[ô][Ô] & txtPer.Text & [Ô][ô] order by nome[Ô]
Set RS = DB.OpenRecordset(sql)
With Me.ListView2
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.ListItems.Clear
.ColumnHeaders.Clear
End With
With Me.ListView2.ColumnHeaders
.Add , , [Ô]Usuário[Ô], 2700, lvwColumnLeft
End With
RS.MoveFirst
Do Until RS.EOF
Set lstItem = Me.ListView2.ListItems.Add(, , [Ô][Ô], 3, 3)
lstItem.Text = RS!nome
RS.MoveNext
Loop
RS.Close
DB.Close
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then
Resume Next
ElseIf Err = 94 Then
Resume Next
ElseIf Err = 3420 Then
Resume Next
Else
MsgBox [Ô]Um erro inesperado Ocorreu![Ô] & _
Chr(13) & [Ô]Código do Erro : [Ô] & Err.Number & _
Chr(13) & [Ô]Descrição : [Ô] & Err.Description & _
Chr(13) & [Ô]Rotina : [Ô] & [Ô]FiltrarPeriodo[Ô], vbCritical, [Ô]Erro do Sistema[Ô]
Resume ErrorHandlerExit
End If
End Sub
Sub ListUsuarios()
Dim RS As Recordset
On Error GoTo ErrorHandler
caminho = ReadINI([Ô]Geral[Ô], [Ô]Caminho[Ô], App.Path & [Ô]\Config.ini[Ô])
Set DB = DBEngine.OpenDatabase(caminho)
sql = [Ô]Select * from CadUser where CodigoPerfil=[ô][Ô] & txtPer.Text & [Ô][ô] order by nome[Ô]
Set RS = DB.OpenRecordset(sql)
With Me.ListView2
.View = lvwReport
.GridLines = True
.FullRowSelect = True
.ListItems.Clear
.ColumnHeaders.Clear
End With
With Me.ListView2.ColumnHeaders
.Add , , [Ô]Usuário[Ô], 2700, lvwColumnLeft
End With
RS.MoveFirst
Do Until RS.EOF
Set lstItem = Me.ListView2.ListItems.Add(, , [Ô][Ô], 3, 3)
lstItem.Text = RS!nome
RS.MoveNext
Loop
RS.Close
DB.Close
ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then
Resume Next
ElseIf Err = 94 Then
Resume Next
ElseIf Err = 3420 Then
Resume Next
Else
MsgBox [Ô]Um erro inesperado Ocorreu![Ô] & _
Chr(13) & [Ô]Código do Erro : [Ô] & Err.Number & _
Chr(13) & [Ô]Descrição : [Ô] & Err.Description & _
Chr(13) & [Ô]Rotina : [Ô] & [Ô]FiltrarPeriodo[Ô], vbCritical, [Ô]Erro do Sistema[Ô]
Resume ErrorHandlerExit
End If
End Sub
eu entendi leo frib :)
mas pq da esse erro method or member not found??
pelo q pesquisei em sites por ai.. minha rotina nao esta errada :(
de qqr jeito por eqto
mas pq da esse erro method or member not found??
pelo q pesquisei em sites por ai.. minha rotina nao esta errada :(
de qqr jeito por eqto
Tópico encerrado , respostas não são mais permitidas