Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Problema Al Intentar Imprimir Un Tableview En Formato Html
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Problema Al Intentar Imprimir Un Tableview En Formato Html 
 
Hola mister mi problema es el siguiente quiero imprimir unos registros de un tableview en formato html pero me dice error en null key.
una pequeña parte del código...

FOR i = 0 TO (tabla.Count - 1)
  PRINT #formulario, "<tr>"
  FOR h = 0 TO (tabla.Columns.Count - 1)
   PRINT #formulario, "<td>" & tabla[i][h] & "</td>" 'aqui me da el error NULL KEY...
  NEXT
    PRINT #formulario, "</tr>"
  NEXT

 



 
homny - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Intentar Imprimir Un Tableview En Formato Html 
 
Prueba con

PRINT #formulario, "<td>" & tabla[i,h].Text & "</td>"

Suerte.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Problema Al Intentar Imprimir Un Tableview En Formato Html 
 
hermano disculpa, el objeto es un columview, lo hice de la forma que me dijisteis PRINT #formulario, "<td>" & tabla[i,h].Text & "</td>"  y nada, da error too many arguments, es algo que tiene que ver con el key
La información que está en la tabla está organizada por un order by y la quiero impresa en html, allí creo es que pierde el orden de los apuntadores o algo así.
el código par imprimir...

PUBLIC SUB btreporte_Click()
  DIM formulario AS File
  DIM nominforme AS String
  DIM ho AS Result
  DIM i, h AS Integer
  IF (tabla.Count > 0 AND tabla.Columns.Count > 0) THEN
    OPEN Application.Path & "/informes/reporte1.html" FOR WRITE CREATE AS #formulario
    IF (TextBox1.Length > 0) THEN
      nominforme = TextBox1.Text
    ELSE
      nominforme = InputBox("Nombre del Encabezado del Informe")
    ENDIF
    PRINT #formulario, "<html><head><title>" & nominforme & "</title>"
    PRINT #formulario, "<meta content='text/html;' http-equiv='content-type' charset='utf-8'></head>"
    PRINT #formulario, "<body>"
    PRINT #formulario, "<script type='text/javascript'>"
    PRINT #formulario, "var i=1;"
    PRINT #formulario, "var titulooriginal = document.title;"
    PRINT #formulario, "function cambiarTitulo()"
    PRINT #formulario, "{"
    PRINT #formulario, "document.title = titulooriginal.substring(0,i);"
    PRINT #formulario, "i++;"
    PRINT #formulario, "if (i>titulooriginal.length) i=0;"
    PRINT #formulario, "setTimeout('cambiarTitulo()',250);"
    PRINT #formulario, "}"
    PRINT #formulario, "cambiarTitulo();"  
    PRINT #formulario, "</script>"
    PRINT #formulario, "<table><tr><td><img src=Gambas_Logo.png></td><td><h1>" & nominforme & "</h1></td></tr></table>"
    PRINT #formulario, "<table border='1'><tr>"
    FOR i = 0 TO (tabla.Columns.Count - 1)
    PRINT #formulario, "<td align='center' WIDTH=200>" & tabla.Columns[i].Text & "</td>"
    NEXT
    PRINT #formulario, "</tr>"
    FOR i = 0 TO (tabla.Count - 1)
      PRINT #formulario, "<tr>"
      FOR h = 0 TO (tabla.Columns.Count - 1)
        PRINT #formulario, "<td>" & tabla[i][h] & "</td>" 'aqui es que da el error de null key...
        'PRINT #formulario, "<td>" & tabla[i, h].Text & "</td>"
      NEXT
      PRINT #formulario, "</tr>"
    NEXT
    PRINT #formulario, "</table><BR><BR>"
    
    PRINT #formulario, "<p> Reporte Impreso el Dia: " & Format(Date, "dd/mm/yyyy") & "</p>"
    PRINT #formulario, "<input type='button' name='Imprimir Informe' value='Imprimir' onclick='window.print();'>"
    PRINT #formulario, "</body></html>"
    CLOSE #formulario
    SHELL ("firefox " & Application.Path & "/informes/reporte1.html")
  ENDIF
END
 



 
homny - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Problema Al Intentar Imprimir Un Columview... homny General 1 Lunes, 31 Enero 2011, 17:48 Ver último mensaje
jsbsan
No hay nuevos mensajes Sobre Guardar En Html Lo Que Se Muestre En... jousseph Bases de Datos 2 Domingo, 17 Julio 2011, 01:33 Ver último mensaje
david
No hay nuevos mensajes Como Guardar Un Reporte Del Gridview En Fo... yaga Bases de Datos 1 Martes, 05 Abril 2016, 22:22 Ver último mensaje
jguardon
No hay nuevos mensajes Quiero Guardar Los Dato Del Gridview Pero ... reyes Bases de Datos 4 Martes, 05 Abril 2016, 23:40 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron