|
Página 1 de 1
|
_GridView_Rows._GetRowHeight.155 Null Object 13
| Autor |
Mensaje |
 v3ctor 
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación:  Uruguay
|
 _GridView_Rows._GetRowHeight.155 Null Object 13
buenas,
el error me sucede en un tableview
Public Sub tvProveedores_Click()
Dim Resultado10 As Result
Print "fila es esta=" & tvProveedores[tvProveedores.Row, 0].Text
Resultado10 = FMain.Conectar1.Exec("select * from proveedores where id_prov=&1", tvProveedores[tvProveedores.Row, 0].Text)
If Error Then
Ventanas.MsgV.Close
Ventanas.MsgV.Open(Error.Where & gb.NewLine & Error.Text & gb.NewLine & Error.Code)
Print Error.Where & gb.NewLine & Error.Text & gb.NewLine & Error.Code
Return
Endif
Do While Resultado10.Available
tvProveedores.Rows.Count = Resultado10.Count
txtID.Text = Resultado10!id_prov
txtProveedor.Text = Resultado10!proveedor
txtCelular.Text = Resultado10!celular
txtTelefono.Text = resultado10!telefono
txtDireccion.Text = Resultado10!direccion
txtaNotas.Text = Resultado10!notas
Resultado10.MoveNext
Loop
BotoneraProv.AccionSeleccion()
ObjetosProv.Desactivar()
End
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible 
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#1 Martes, 03 Noviembre 2015, 16:56 |
|
 |
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación:  Albacete
|
Re: _GridView_Rows._GetRowHeight.155 Null Object 13
Ese código por sí mismo no es significativo. Sube un miniproyecto que reproduzca el error.
Saludos.
===================
No podemos regresar
|
#2 Martes, 03 Noviembre 2015, 17:55 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: _GridView_Rows._GetRowHeight.155 Null Object 13
el problema se da en la tabla proveedores pues el not null de proveedor no funciona pues se ingresa un dato vacío y no lo detecta, en la interfaz gráfica pues por linea de comando sql de gambas si lo detecta
dejo el código fuente
https://www.dropbox.com/s/r8apdybhu....63.tar.gz?dl=0
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#3 Martes, 03 Noviembre 2015, 19:55 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: _GridView_Rows._GetRowHeight.155 Null Object 13
Lo he probado y a mí me ha funcionado sin problemas. Tiene cosas que no me gustan en ese formulario, pero errores no me ha dado.
Saludos.
===================
No podemos regresar
|
#4 Miercoles, 04 Noviembre 2015, 09:04 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: _GridView_Rows._GetRowHeight.155 Null Object 13
buenas,
me tira este mismo error en el programa taller, si uso try funciona bien pero si lo saco me tira el error
se poco de ingles pero por lo que veo dice: error al obtener la altura de la fila en el _GridView_Rows.?
no sera esto un bug? no hay ninguna info por ahi?
Public Sub BuscarResultados()
Dim hresul As Result
Dim sql As String
' TODO: modificar para filtros de años,si saco los try me tira un error (Error:Null object-[_GridView_Rows._GetRowHeight.155]Código=13)
If bAnio = False Then
' Try hresul = Conectar1.Exec("select * from tablataller order by id desc") 'original
hresul = Conectar1.Exec("select * from tablataller order by id desc") 'de pruebas
Else
' Try hresul = Conectar1.Exec("Select * From tablataller where (ingreso like '%" & sAnio & "%')order by id desc") 'original
Try hresul = Conectar1.Exec("Select * From tablataller where (ingreso like '%" & sAnio & "%')order by ingreso desc") 'de pruebas
Endif
If Error Then
Ventanas.Mgv1.Close
Ventanas.Mgv1.Open("Error: " & Error.Text & " - [ " & Error.Where & " ] Código=" & Error.Code)
Else
If hresul.Available Then
MostrarDatos(hresul)
mnuGraficas.Enabled = True
Else
mnuGraficas.Enabled = False
Endif
Endif
End
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
última edición por v3ctor el Lunes, 28 Diciembre 2015, 13:44; editado 1 vez |
#5 Lunes, 28 Diciembre 2015, 13:43 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: _GridView_Rows._GetRowHeight.155 Null Object 13
buenas,
este problema me tiene mal jajaja me pasaba en taller2015 y ahora me esta pasando con visorrv1960
el mensaje de error sale cuando se elimina un registro pero la razón ni la mas mínima idea...
Public Sub btnEliminar_Click()
Dim sql As String
If Not tvComentPlus.Current Then Return
If tvComentPlus[tvComentPlus.Row, 0].Text = "" Then Return
sql = Subst("delete from ComentRef where id_ComentRef='&1'", CInteger(tvComentPlus[tvComentPlus.Row, 0].Text)) 'con comillas simples
' sql = Subst("delete from ComentRef where id_ComentRef=&1", CInteger(tvComentPlus[tvComentPlus.Row, 0].Text)) 'sin comillas simples original
Print "EliminarRegistro sql=" & sql
FMain.C_ComtRef.Coneccion.Exec(sql)
If Error Then
Print "btnEliminar_Click()=Error: " & Error.Text & " - " & Error.Where & " - " & Error.Code
'FIXME:_GridView_Rows._GetRowHeight.155 Null Object 13 BUSCAR SOLUCIÓN A ESTE PROBLEMA
If Error.Code <> 13 Then
Print "Error: " & Error.Text & " - " & Error.Where & " - " & Error.Code
' Message.Error("Error: " & Error.Text & " - " & Error.Where & " - " & Error.Code)
Else
tvComentPlus.Rows.Remove(tvComentPlus.Row)
CargarDatosTabla()
lstEtiquetas.List = sqlComentEtc.ObtenerTodasLasEtiquetas()
limpiar()
CTagEditor1.Clear()
txtlContaEtqVers.Text = CTagEditor1.GetTags().Count
Endif
Else
tvComentPlus.Rows.Remove(tvComentPlus.Row)
CargarDatosTabla()
lstEtiquetas.List = sqlComentEtc.ObtenerTodasLasEtiquetas()
CTagEditor1.Clear()
txtlContaEtqVers.Text = CTagEditor1.GetTags().Count
Endif
End
para reproducir el error bajan visor, van a versículos comentados y eliminan algunos y verán en la consola de gambas los print
intente buscar en el complemento gb.sqlite3 el mensaje de error pero no tuve éxito, esta en c++
sigo investigando esto que me tiene loco
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#6 Domingo, 04 Junio 2017, 15:52 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
