no Coinciden los tipos, error 13
Jose Lopez
obtener los nodos del Treeview, pero me da el error de No Coinciden los
Tipos, no se porque porque lo estoy utilizando en otro formulario y no me da
el error, el código es el siguiente (en la última linea me da el error):
Dim rstCatalogs As Recordset
Dim nod As Node
Dim lngParentIndex As Long
Dim i As Integer
Dim dbName As String
Dim ConnString As String
Dim Key As String
Dim GroupItems As JSGroupItems
Dim bbItem As JSGroupItem
On Error GoTo EH_LoadCatalog
dbName = "contratosCobrosSGI" 'App.Path & "\JSNWind.MDB"
dbName = GetSetting("Parqueos y Bodegas", "Initial Settings", "DBPath",
dbName)
OpenDatabase_Proc:
ConnString = DSN1 '"Provider=Microsoft.JET.OLEDB.4.0;Data Source=" &
dbName
Set m_conn = New Connection
m_conn.Open ConnString
SaveSetting "Janus Advanced Sample", "Initial Settings", "DBPath", dbName
jsgxMain.DatabaseName = ConnString
Set rstCatalogs = New Recordset
rstCatalogs.Open "SELECT * FROM SGI_Catalog", m_conn, adOpenStatic,
adLockOptimistic
m_CatalogIndex = -1
Set nod = tvwCatalog.Nodes.Add(, , , "Opciones")
Vinchenzo vinç
> Tengo un problema con un control TreeView, estoy utilizando una variable para
> obtener los nodos del Treeview, pero me da el error de No Coinciden los
> Tipos, no se porque porque lo estoy utilizando en otro formulario y no me da
> el error, el código es el siguiente (en la última linea me da el error):
> Dim nod As Node
> ...
> Set nod = tvwCatalog.Nodes.Add(, , , "Opciones")
Hola,
has añadido los componentes de las 'MSComctlLib' y 'ComctlLib'.
Estás declarando una variable 'Node', de una librería que no corresponde con la librería del 'TreeView' al que estás añadiendo el nodo. La clase 'Node' es distinta en esas librerías.
En el otro formulario te funciona porque en él usas el 'TreeView' de la librería a la que corresponde el 'Node' declarado en la función.
Si (¿por alguna razón?) debes usar los dos 'TreeView' en tu proyecto, al menos declara explícitamente la librería que corresponda a la clase 'Node' que vas a recibir:
Dim nod As MSComctlLib.Node
ó
Dim nod As ComctlLib.Node
--
Saludos
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/microsoft.public.es.vb
( i ) Temperancia en el foro:
http://support.microsoft.com/default.aspx?scid=fh;ES-ES;newsreglas
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Jose Lopez
Mil gracias!!!!!