[SOLUCIONADO] meter en un url la pagina a la que se dirige pasandole una variable

[maialenlopez]

Hola,

Necesito vuestra ayuda. a ver si me puedo explicar bien. Lo que hago es una consulta a un bbdd y lo que me va devolviendo lo escribo en una tabla de la forma que se ve en el código. Lo que necesito es que en la ultima celda, la llamada objCell3 que lo he puesto en negrita, se cargue un link o una url que iría a una pagina llamada HorasOperarios.aspx pero a su vez quiero pasarle el numoperario. Para que así se cargen cosas que tengan que ver con ese operario en la pagina HorasOperarios.aspx.

¿Como puedo hacer esto?

Código vb.net:

With mysql_comando
                        reader = .ExecuteReader()
                        While reader.Read()
 
                            objRow = New TableRow()
                            Dim objCell1, objCell2, objCell3, objCell4 As New TableCell()
                            Dim linkDetalle, linkMes As New HyperLink()
 
                            numoperario = reader.GetValue(0)
                            nombre = reader.GetValue(1)
 
                            objCell1.Controls.Add(New LiteralControl(numoperario))
                            objCell1.HorizontalAlign = HorizontalAlign.Center
                            objCell2.Controls.Add(New LiteralControl(nombre))
                            objCell2.HorizontalAlign = HorizontalAlign.Left
                            [B]linkDetalle.Text = "Detalle"
                            linkDetalle.NavigateUrl = "~/HorasOperarios.aspx"
                            objCell3.Controls.Add(New LiteralControl(linkDetalle.Text))[/B]
 
                            objCell4.Controls.Add(New LiteralControl(numoperario))
                            objCell4.Visible = False
                            objRow.Cells.Add(objCell1)
                            objRow.Cells.Add(objCell2)
                            objRow.Cells.Add(objCell3)
                            'objRow.Cells.Add(objCell4)
                            Table2.Rows.Add(objRow)
                        End While
                        .Dispose()
                    End With
 

[Malenko]

Seria algo así como:

Código:

linkDetalle.NavigateUrl = "~/HorasOperarios.aspx?numOperario=" & numoperario

Aunque es poco seguro porque pueden modificar el valor por la barra(url) pero es un inicio. Si te funciona después de digo como hacerlo más seguro ;)

[maialenlopez]

Iniciado por Malenko

Seria algo así como:

Código:

linkDetalle.NavigateUrl = "~/HorasOperarios.aspx?numOperario=" & numoperario

Aunque es poco seguro porque pueden modificar el valor por la barra(url) pero es un inicio. Si te funciona después de digo como hacerlo más seguro ;)

Funciona perfecto!!!! Gracias.


Tengo otra pregunta. Si te fijas en el código tengo puesto que se muestre, en la columna donde iría esa url, que se muestre el text de la url, en este caso se mostraría la palabra "Detalle" pero me pongo encima de esa palabra y no me deja clicar. ¿Sabes tu si tengo que hacer algo para que me deje clicar en ella y asi que vaya a la url que indica con el noperario correspondiente?

Código vb.net:

With mysql_comando
                        reader = .ExecuteReader()
                        While reader.Read()
 
                            objRow = New TableRow()
                            Dim objCell1, objCell2, objCell3, objCell4 As New TableCell()
                            Dim linkDetalle, linkMes As New HyperLink()
 
                            numoperario = reader.GetValue(0)
                            nombre = reader.GetValue(1)
 
                            objCell1.Controls.Add(New LiteralControl(numoperario))
                            objCell1.HorizontalAlign = HorizontalAlign.Center
                            objCell2.Controls.Add(New LiteralControl(nombre))
                            objCell2.HorizontalAlign = HorizontalAlign.Left
                            linkDetalle.Text = "Detalle"
                            linkDetalle.NavigateUrl = "~/HorasOperarios.aspx?numOperario=" & numoperario
                            [B]objCell3.Controls.Add(New LiteralControl(linkDetalle.Text ))[/B]
 
                            objCell4.Controls.Add(New LiteralControl(numoperario))
                            objCell4.Visible = False
                            objRow.Cells.Add(objCell1)
                            objRow.Cells.Add(objCell2)
                            objRow.Cells.Add(objCell3)
                            'objRow.Cells.Add(objCell4)
                            Table2.Rows.Add(objRow)
                        End While
                        .Dispose()
                    End With
 

[Malenko]

Yo controles dinámicos no he tocado mucho pero diría que más que llamar a la propiedad "Text" porque es el Texto del link:

Código:

linkDetalle.Text

tendrías que usar el RenderControl para que te genere todo el código HTML (<a href=...)

[maialenlopez]

Iniciado por Malenko

Yo controles dinámicos no he tocado mucho pero diría que más que llamar a la propiedad "Text" porque es el Texto del link:

Código:

linkDetalle.Text

tendrías que usar el RenderControl para que te genere todo el código HTML (<a href=...)

Ya lo he echo, a ver si me puedes ayudar en esto.

Hago lo siguiente pero ahora no me muestra el nombre del link al que tengo que clicar, es decir, el objCell3 no me pinta nada en la tabla

Código vb.net:

With mysql_comando
                        reader = .ExecuteReader()
                        While reader.Read()
 
                            objRow = New TableRow()
                            Dim objCell1, objCell2, objCell3, objCell4 As New TableCell()
                            Dim linkDetalle As String
                            Dim link As HtmlTextWriter
 
                            numoperario = reader.GetValue(0)
                            nombre = reader.GetValue(1)
 
                            objCell1.Controls.Add(New LiteralControl(numoperario))
                            objCell1.HorizontalAlign = HorizontalAlign.Center
                            objCell2.Controls.Add(New LiteralControl(nombre))
                            objCell2.HorizontalAlign = HorizontalAlign.Left
 
                            Dim sw As StringWriter = New StringWriter
                            Dim ht As HtmlTextWriter = New HtmlTextWriter(sw)
 
                            ' Create the a.
                            ht.AddAttribute(HtmlTextWriterAttribute.Href, "~/HorasOperarios.aspx?numOperario=" & numoperario)
                            ht.RenderBeginTag(HtmlTextWriterTag.A)
 
                            ' End all the tags.
                            ht.RenderEndTag()
                            linkDetalle = sw.ToString()
                            [B]objCell3.Controls.Add(New LiteralControl(linkDetalle))[/B]
 
                            objRow.Cells.Add(objCell1)
                            objRow.Cells.Add(objCell2)
                            objRow.Cells.Add(objCell3)
                            Table2.Rows.Add(objRow)
                        End While
                        .Dispose()
                    End With
 

[Malenko]

Si abres la web en el navegador y haces "Ver codigo fuente", has visto si el link está creado? Es posible que no esté del todo correcto y se imprima pero no se vea. Si nisiquiera lo ves en el codigo fuente de la web, es que falta algún detalle.

[maialenlopez]

Iniciado por Malenko

Si abres la web en el navegador y haces "Ver codigo fuente", has visto si el link está creado? Es posible que no esté del todo correcto y se imprima pero no se vea. Si nisiquiera lo ves en el codigo fuente de la web, es que falta algún detalle.

Si, al mirar el código fuente si se ve que se cree el link, pero no me aparece en la tabla.

Esto es lo que veo en el codigo fuente:

Código codigo fuente:

</tr><tr>
        <td align="center"></td><td align="left"></td><td><a href="HorasOperarios.aspx?numOperario="></a></td>
    </tr><tr>
        <td align="center">1180</td><td align="left"> ALAIN ALKORTA</td><td><a href="HorasOperarios.aspx?numOperario=1180"></a></td>
    </tr><tr>
        <td align="center">9534</td><td align="left"> ALAIN ALKORTA</td><td><a href="HorasOperarios.aspx?numOperario=9534"></a></td>
    </tr><tr>
        <td align="center">2222</td><td align="left">ABEL LARRETA</td><td><a href="HorasOperarios.aspx?numOperario=2222"></a></td>
    </tr><tr>
        <td align="center">2107</td><td align="left">ADRIAN FAJARDO</td><td><a href="HorasOperarios.aspx?numOperario=2107"></a></td>
    </tr><tr>
        <td align="center">2696</td><td align="left">ADUR ARTEAGA</td><td><a href="HorasOperarios.aspx?numOperario=2696"></a></td>
    </tr><tr>
        <td align="center">990</td><td align="left">ADUR IRUIN ARRUTI</td><td><a href="HorasOperarios.aspx?numOperario=990"></a></td>
    </tr><tr>
        <td align="center">548</td><td align="left">AGUSTIN ALUSTIZA</td><td><a href="HorasOperarios.aspx?numOperario=548"></a></td>
    </tr><tr>
        <td align="center">2819</td><td align="left">AGUSTIN DE ARRIBA</td><td><a href="HorasOperarios.aspx?numOperario=2819"></a></td>
 

[Malenko]

He encontrado un ejemplo muy muy parecido a lo que tu quieres hacer (crear un link html en una tabla). A ver si te sirve de guia:

http://www.vbforums.com/showthread.p...ks-at-run-time

[maialenlopez]

Iniciado por Malenko

He encontrado un ejemplo muy muy parecido a lo que tu quieres hacer (crear un link html en una tabla). A ver si te sirve de guia:

http://www.vbforums.com/showthread.p...ks-at-run-time

Muchas gracias!!!
Me ha servido muchísimo. Y guiándome de lo que me has mandado la he echo asi!

Código vb.net:

With mysql_comando
                        reader = .ExecuteReader()
                        While reader.Read()
 
                            objRow = New TableRow()
                            Dim objCell1, objCell2, objCell3, objCell4 As New TableCell()
                            Dim linkDetalle, linkMes As String
                            Dim sw1 As StringWriter = New StringWriter
                            Dim ht1 As HtmlTextWriter = New HtmlTextWriter(sw1)
                            Dim sw2 As StringWriter = New StringWriter
                            Dim ht2 As HtmlTextWriter = New HtmlTextWriter(sw2)
                            'Dim link As HtmlTextWriter
 
                            numoperario = reader.GetValue(0)
                            nombre = reader.GetValue(1)
 
                            objCell1.Controls.Add(New LiteralControl(numoperario))
                            objCell1.HorizontalAlign = HorizontalAlign.Center
                            objCell2.Controls.Add(New LiteralControl(nombre))
                            objCell2.HorizontalAlign = HorizontalAlign.Left
 
                            ' Create the a.
                            ht1.AddAttribute(HtmlTextWriterAttribute.Href, "HorasOperarios.aspx?numOperario=" & numoperario)
                            ht1.RenderBeginTag(HtmlTextWriterTag.A)
                            ht1.Write("Detalle mensual")
                            ' End all the tags.
                            ht1.RenderEndTag()
                            linkDetalle = sw1.ToString()
                            objCell3.Controls.Add(New LiteralControl(linkDetalle))
 
                            ' Create the a.
                            ht2.AddAttribute(HtmlTextWriterAttribute.Href, "HorasOperariosMes.aspx?numOperario=" & numoperario)
                            ht2.RenderBeginTag(HtmlTextWriterTag.A)
                            ht2.Write("Mes entero")
                            ' End all the tags.
                            ht2.RenderEndTag()
                            linkMes = sw2.ToString()
                            objCell4.Controls.Add(New LiteralControl(linkMes))
 
                            objRow.Cells.Add(objCell1)
                            objRow.Cells.Add(objCell2)
                            objRow.Cells.Add(objCell3)
                            objRow.Cells.Add(objCell4)
                            Table2.Rows.Add(objRow)
                        End While
                        .Dispose()
                    End With
 

Gracias por todo, has sido de gran ayuda.