ERR 91

USUARIO.EXCLUIDOS 08/08/2007 11:18:12
#229966
Este método está no mdGlobal ao executar quando chega no "Set nd" dá o erro 91 'Object variable or With block variable not set'
Porque ? Como posso resolver isto?

Aguardo resposta!


'LISTAS
Private tvLista As TreeView
Private nd As Node
Private imgIcones As ImageList

Public Function AdicionarControleMDI(pControle As ActiveBar2) As Boolean
Dim pPic As StdPicture
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim iImg As Integer
Dim iHabilitado As Integer
Dim iVisivel As Integer
Dim idComp As String
Dim sIdForm As String
Dim sNome As String
Dim sCaption As String




On Error GoTo erro

               For i = 0 To pControle.Bands.Count - 1

                    'Adiciona as barras na TreeView
                    If pControle.Bands(i).caption <> "" And pControle.Bands(i).Type <> 2 Then
                        Set nd = tvLista.Nodes.Add(, , pControle.Bands(i).Name, pControle.Bands(i).caption)
                        nd.Tag = pControle.Bands(i).Name
                next

end Function
USUARIO.EXCLUIDOS 08/08/2007 11:20:13
#229969


Estas declarações..

Private tvLista As TreeView
Private nd As Node
Private imgIcones As ImageList

tem como deixá-las públicas? ou em um módulo público

tenta ae..boa sorte
USUARIO.EXCLUIDOS 08/08/2007 11:23:18
#229971
Estas declarações estão no mdGlobal também e já tentei com elas públicas mas não resolveu.
USUARIO.EXCLUIDOS 08/08/2007 12:04:15
#229982
Outra coisa..

falta o end if

For i = 0 To pControle.Bands.Count - 1

'Adiciona as barras na TreeView
If pControle.Bands(i).caption <> "" And pControle.Bands(i).Type <> 2 Then
Set nd = tvLista.Nodes.Add(, , pControle.Bands(i).Name, pControle.Bands(i).caption)
nd.Tag = pControle.Bands(i).Name
>>>>>>>>>>>>>>>>>>>End If
next
USUARIO.EXCLUIDOS 08/08/2007 12:10:08
#229987
é que peguei somente uma parte do código mas tem end if no meu código sim. E o erro dá antes disso, como já mencionei é no "Set nd" ...
Tópico encerrado , respostas não são mais permitidas
Voltar