Imagelist debe inicializarse para poder usarla
Tengo un drama, mi aplicación tengo un form que cuando apretó un botón me abre otro form2 que este contiene una treeview. Lo que quiero es que cuando apretó el botón en el form 1 me habrá el 2 con la treevie ya cargado con los datos que necesito que en este caso es empresas y empleados.
Pero me salta un error como puse en el titulo y no sigue y me tranca.
Si podrían ayudarme les agradecería.
Código:
Public Sub ActualizarMTView()
TreeView1. Nodes. Clear
Aca no pasa salta el error de imaglist debe inicializarse
Set NodoV = TreeView1.Nodes.Add(, , "E", "Empresas", "Empresas")
If MiRecordset4.EOF = True And MiRecordset4.BOF = True Then
Exit Sub
End If
MiRecordset4.MoveFirst
Do While Not MiRecordset4.EOF
Empresa = MiRecordset4!Empr_nombre
If Empresa <> "" Then
Empresa_id = "E" & MiRecordset4!Empr_id
Set NodoV = TreeView1.Nodes.Add("E", tvwChild, Empresa_id, Empresa, "Empresa")
End If
MiRecordset4.MoveNext
Loop
MiRecordset4.MoveFirst
If MiRecordset3.EOF = True And MiRecordset3.BOF = True Then
NodoV.EnsureVisible
Exit Sub
Else
If MiRecordset.EOF = True And MiRecordset.BOF = True Then
GoTo ContinuaMT
Else
me.posicionoempleados
End If
ContinuaMT:
For i = 0 To Empleados
Do While Not MiRecordset3.EOF
If MiRecordset3!Vehi_id = Empleados(E) Then
EmpleadosT = MiRecordset3!Emp_textid
EmpleadosID = "M" & MiRecordset3!Emp_id
EmpleadosE = "E" & MiRecordset3!Emp_Empr_id
Set NodoV = TreeView1.Nodes.Add(EmpleadosE, tvwChild, EmpleadosID, EmpleadosT, "Nombre")
End If
MiRecordset3.MoveNext
Loop
E = E + 1
MiRecordset3.MoveFirst
Next
NodoV.EnsureVisible
End If
End Sub
En un momento me funciono pero no se después me salta ese error y no me doy cuenta, tengo otra treeview en otro form y funciona perfecto pero no se porque acá no puedo.
Pero me salta un error como puse en el titulo y no sigue y me tranca.
Si podrían ayudarme les agradecería.
Código:
Public Sub ActualizarMTView()
TreeView1. Nodes. Clear
Aca no pasa salta el error de imaglist debe inicializarse
Set NodoV = TreeView1.Nodes.Add(, , "E", "Empresas", "Empresas")
If MiRecordset4.EOF = True And MiRecordset4.BOF = True Then
Exit Sub
End If
MiRecordset4.MoveFirst
Do While Not MiRecordset4.EOF
Empresa = MiRecordset4!Empr_nombre
If Empresa <> "" Then
Empresa_id = "E" & MiRecordset4!Empr_id
Set NodoV = TreeView1.Nodes.Add("E", tvwChild, Empresa_id, Empresa, "Empresa")
End If
MiRecordset4.MoveNext
Loop
MiRecordset4.MoveFirst
If MiRecordset3.EOF = True And MiRecordset3.BOF = True Then
NodoV.EnsureVisible
Exit Sub
Else
If MiRecordset.EOF = True And MiRecordset.BOF = True Then
GoTo ContinuaMT
Else
me.posicionoempleados
End If
ContinuaMT:
For i = 0 To Empleados
Do While Not MiRecordset3.EOF
If MiRecordset3!Vehi_id = Empleados(E) Then
EmpleadosT = MiRecordset3!Emp_textid
EmpleadosID = "M" & MiRecordset3!Emp_id
EmpleadosE = "E" & MiRecordset3!Emp_Empr_id
Set NodoV = TreeView1.Nodes.Add(EmpleadosE, tvwChild, EmpleadosID, EmpleadosT, "Nombre")
End If
MiRecordset3.MoveNext
Loop
E = E + 1
MiRecordset3.MoveFirst
Next
NodoV.EnsureVisible
End If
End Sub
En un momento me funciono pero no se después me salta ese error y no me doy cuenta, tengo otra treeview en otro form y funciona perfecto pero no se porque acá no puedo.
2 Respuestas
Respuesta de mrtool
1
Respuesta de Darwin Viera