Grid personalizado

[ssccaann43]

Bueno tengo una duda, me gustaría saber si por casualidad alguien ha visto algo similar a la imagen que muestro a continuación.

Realmente requiero construir un grid similar a esto:



Mi intención es mostrar datos en dicho control, donde los valores a enviar son los montos y el nombre de la unidad a la que estos pertenecen. Estoy algo perdido, pues me cuesta realmente crear controles nuevos y ciertamente se me dificulta todo, no pido que me lo creen que si alguna orientación. De verdad muy agradecido con ustedes.

Saludos.

[YAcosta]

Esa consulta es Jeraquica, habría que usar el MSHFlexgrid pero estéticamente no te va a quedar tan parecido, a mi también me interesa ese tema.

[fx700]

Me parece haber visto ese grid tipo reporte en el farpoint spread, biene con ejemplo asi que solo se fijan si hay alguno que se paresca, espero que si, haber si les gusta y lo colocan en la seccion de herramientas y utilidades por que esta full.
http://www.megaupload.com/?d=S8LW30M0

[YAcosta]

pucha fx700 si fuera asi seria un golazo.. lo estoy descargando y veo que son 22 megas, tonses es un pack? es shareware? hay fuentes? (son preguntas retoricas, cuando descargue lo sabre jeje)  a ver vamos a checarlo.

Gracias.

[YAcosta]

Manya esta crakeaidito y todo... pero me da temor instalar el aplicativo por que no vaya entrar en conflicto con lo que tengo, voy a probarlo en otra maquina a ver que onda como va.

[Jen]

Use HTML template and fill in the data or use RTF report. They are flexible to suit your application.

[LeandroA]

Hola tal como dice Jen se puede utilizar un webbrowser para hacer un reporte o grilla muy personalizado (siempre y cuando ablemos de mostrar datos y no modificarlos), o bien utilizando metodos graficos si el reporte es exactamente como muestra la imagen puedo hacer un ejemplo de lo contrario hay que usar un poco de imaginacion e ir dibujando lineas y texto.

[ssccaann43]

Hola tal como dice Jen se puede utilizar un webbrowser para hacer un reporte o grilla muy personalizado (siempre y cuando ablemos de mostrar datos y no modificarlos), o bien utilizando metodos graficos si el reporte es exactamente como muestra la imagen puedo hacer un ejemplo de lo contrario hay que usar un poco de imaginacion e ir dibujando lineas y texto.

Realmente es para mostrar la información... No se modificaría nada...! Pero obviamente sería interesante poder conocer o leer los valores del registro X..!

La única información que mandaría a mostrar es: "Nombre de la Unidad", "Valores por Meses de Head-Count", "Valores por Meses de Montos Distribuidos"

Gracias enormemente a todos por apoyarme y tenderme una mano...!

Saludos,

PD: Leandro si podes armar algo, de verdad que te lo agradezco... Que beso el gallo cuando vaya a arroyo seco =P

[LeandroA]

Hola te paso un ejemplo con un WebBrowser, yo se muy poco de CCS asi que masomenos arme uno a gusto despues vos modifica los estilos a tu gusto.

En un formulario agrega un webrowser1 y un command1

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()
    Dim strCCS As String
   
    strCCS = "<style type='text/css'>" & _
            ".ms-column2-main {" & _
            "    border-style: none;" & _
            "}" & _
            ".ms-column2-left {" & _
            "    font-weight: normal;" & _
            "    color: black;" & _
            "    border-style: none;" & _
            "    background-color: silver;" & _
            "}"
    strCCS = strCCS & _
            ".style1 {" & _
            "    font-weight: bold;" & _
            "    color: white;" & _
            "    text-align: center;" & _
            "    border-style: none;" & _
            "    background-color: navy;" & _
            "}" & _
            ".style2 {" & _
            "    text-decoration: underline;" & _
            "    color: #FF0000;" & _
            "}"
    strCCS = strCCS & _
            ".style3 {" & _
            "    font-weight: bold;" & _
            "    color: black;" & _
            "    text-align: right;" & _
            "    border-style: none;" & _
            "    background-color: #DDFFDD;" & _
            "}" & _
            ".style4 {" & _
            "    font-weight: bold;" & _
            "    color: black;" & _
            "    text-align: right;" & _
            "    border-style: none;" & _
            "    background-color: silver;" & _
            "}"

    strCCS = strCCS & "</style>"
           
    WebBrowser1.Navigate "about:blank"
    Do While WebBrowser1.Busy: DoEvents: Loop
    WebBrowser1.Document.write strCCS
   
End Sub

Private Sub Command1_Click()
    Dim I As Long
    Dim J As Long
    Dim sValorMeses(11) As String
    Dim sMontoDistribuido(11) As String
   
    For I = 0 To 20
        For J = 0 To 11
            sValorMeses(J) = Format(Rnd, "0.00")
            sMontoDistribuido(J) = Format(Rnd, "0.00")
        Next
   
        AddTable "NOMBRE DE LA UNIDAD", sValorMeses, sMontoDistribuido
    Next
End Sub

Private Function AddTable(ByVal sUnidad As String, sVM() As String, sMD() As String)
    Dim sTable As String
    Dim I As Long
   
    WebBrowser1.Document.write "<span class='style2'>" & sUnidad & "</span>"

    sTable = "<table style='width: 100%' class='ms-column2-main'>" & _
        "<tr>" & _
            "<td class='style1'>&nbsp;</td>"
            For I = 1 To 12
                sTable = sTable & "<td class='style1'>" & UCase(Format("1/" & I & "/1", "MMM")) & "</td>"
            Next
    sTable = sTable & "</tr>"
   
    sTable = sTable & "<tr><td class='ms-column2-left'>VALORES POR MESES</td>"
            For I = 0 To 11
                sTable = sTable & "<td class='style" & IIf(I Mod 2, 4, 3) & "'>" & sVM(0) & "</td>"
            Next
            sTable = sTable & "</tr>"
   
    sTable = sTable & "<tr><td class='ms-column2-left'>MONTOS DISTRIBUIDOS</td>"
            For I = 0 To 11
                sTable = sTable & "<td class='style" & IIf(I Mod 2, 4, 3) & "'>" & sMD(0) & "</td>"
            Next
    sTable = sTable & "</tr></table>"
   
    WebBrowser1.Document.write sTable & "</p>"
   
End Function

Saludos.

[YAcosta]

Guau, este Leandrito no deja de sorprenderme... me falta mucho por aprender maestro Kenobi 

[ssccaann43]

Jajajajajaja.. Madre mía...!

Leandro que batazo has dado y has metido HOMERUN...! Gracias

Por cierto Yvan tu ejemplo lo usare para una cosita que tengo allí, gracias tambien por tu apoyo...!

Gracias a todos..!

[ssccaann43]

Sera que esa dependencia no me dara problemas si lo instalo en W7?

[YAcosta]

De nada Miguel, para eso estamos.

Lo que me parece bacan del grid sobre web que publica Leandro, es que puedo crear otra alternativa de exportacion al usuario, osea, a parte de exportarlo a PDF y Excel, se puede exportar a web ya formateadito. Excelente Leandro.

Gracias


No se si causara conflicto con 7, en todo caso creo que se podria usar modificando el regedit (quitar el 1 a la referencia del iframe me parece), lamentablemente no hay (ojala me equivoque) una alternativa al webbrowser, un control que sea del chrome, mozilla, opera o incluso matrox.