none
Mostrar como Link celda de DataGridView al pasarla a tabla HTML RRS feed

  • Pregunta

  • Tengo un DataGridView con una columna tipo Hipervinculo o Link. Ahi el texto es "VER"  y al hacer click efectivamente me manda a la Url correspondiente.  Pero, tengo una funcion adicional que convierte el DataGridView en Tabla HTML, y lo hace bien, excepto que la columna  del Link solo pasa como texto, no como Hipervinculo.

    La funcion es la siguiente:

    ------------------------------------------------------------------

    Private Function DataGridViewToHTML() As String
            Dim sw As StringWriter = New StringWriter()
            Dim hw As HtmlTextWriter = New HtmlTextWriter(sw)
            ' Dim introBody As System.Web.UI.WebControls.Label = New System.Web.UI.WebControls.Label()
            'introBody.Text = "<table Id='disp'"
            'introBody.ID = "bodyText"
            'introBody.RenderControl(hw)
            'hw.WriteBreak()
            'hw.WriteBreak()
            Dim tbl As System.Web.UI.WebControls.Table = New System.Web.UI.WebControls.Table()
            tbl.GridLines = System.Web.UI.WebControls.GridLines.Both
            Dim thr As System.Web.UI.WebControls.TableHeaderRow = New System.Web.UI.WebControls.TableHeaderRow()

            For Each col As DataGridViewColumn In Me.DataGridView1.Columns
                Dim thc As System.Web.UI.WebControls.TableHeaderCell = New System.Web.UI.WebControls.TableHeaderCell()
                thc.Text = col.HeaderText
                thr.Controls.Add(thc)
            Next

            tbl.Controls.Add(thr)

            For Each row As DataGridViewRow In Me.DataGridView1.Rows
                Dim tr As System.Web.UI.WebControls.TableRow = New System.Web.UI.WebControls.TableRow()

                For Each val As DataGridViewCell In row.Cells
                    Dim tc As System.Web.UI.WebControls.TableCell = New System.Web.UI.WebControls.TableCell()

                    tc.Text = val.EditedFormattedValue.ToString()
                    tr.Controls.Add(tc)
                Next

                tbl.Controls.Add(tr)
            Next

            tbl.RenderControl(hw)
            Return sw.ToString()

        End Function

    -------------------------------------------

    ¿ Que me falta incluir para que integre la columna del hipervinulo como tal al convertila en tabla HTML?

    El valor tc.Text me da el texto fijo, y tc.value el hiperlink pero no logro conjuntarlos para que aparezcan como hipervinculo.

    EL DATA GRID FUNCIONA BIEN

    Pero la Tabla HTML  no muestra VER, como hipervinculo:


    Luis C

    martes, 9 de octubre de 2018 20:43