Puede buscar informacion sobre la funcion SUBSTRING, podras extraer una cadena de otra, es todo lo que necesitas. saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarImports Microsoft.VisualBasic
Imports System.Data.SqlClient
Public Class Class1
Dim con As New SqlConnection("integrated security=sspi;data source=(local);initial catalog=ejemplo")
Dim da As SqlDataAdapter
Dim dtb As Data.DataTable
Public Function subcateroria(ByVal id_categoria As Integer) As Data.DataTable
da = New SqlDataAdapter("select * from sub_categoria where id_categoria=" & id_categoria & "", con)
dtb = New Data.DataTable
da.Fill(dtb)
Return dtb
End Function
End Class
Citardiv.popup {Agregar la siguiente imagen al proyecto.
max-width: 600px;
background-color: white;
position: absolute;
}
#popup_overlay {
background-color:aliceblue;
position: absolute;
top: 0;
left: 0;
width: 100%;
height: 500px;
}
span.popup_link, a.popup_link {
cursor: pointer;
}
.popup_draghandle {
cursor: move;
}
.ventana
{
background-color:#F4F6EB;
border-collapse:collapse;
font-size:smaller ;
font-family:Verdana;
}
.titulo
{
height:17px;
background-image:url(bar.jpg);
background-repeat:repeat-x
}
Citardragdrop
effects
popup
prototype
Citar<script src="prototype.js" type="text/javascript"></script>
<script src="effects.js" type="text/javascript"></script>
<script src="dragdrop.js" type="text/javascript"></script>
<script src="popup.js" type="text/javascript"></script>
<link rel="stylesheet" href="popup.css" type="text/css" />
Citar<asp:HyperLink ID="HyperLink1" runat="server"><img src="eye.gif" width="15px"/></asp:HyperLink>
Citar<div id="tooltip" class="popup" style="width:150px">
<table border="1" cellspacing='0' cellpadding='0' class='ventana'>
<tr><td align="center">Aqui ira el mensaje para el tooltip, poner una imagen o lo que ud desee.</td></tr>
</table>
</div>
<script type="text/javascript">
//<![CDATA[
new Popup('tooltip','',{modal:true})
//]]>
</script>
Recordar que tanto el id del div debe ser igual al primer parametro de la funcion new popup
Citar
VB
<%
Dim cls As Class1
Dim a, b As Integer
Dim row As GridViewRow
cls = New Class1
Dim cod As String
If GridView1.Rows.Count > 0 Then
For a = 0 To GridView1.Rows.Count - 1
cod = GridView1.DataKeys(a).Value.ToString
Response.Write("<div id='panel" & a + 2 & "' class='popup' style='width:200px'>" & Chr(13))
Response.Write("<table border='1' cellspacing='0' cellpadding='0' width='100%' class='ventana'><tr><td class='titulo'><table border='0' width='100%' style='border-collapse:collapse'><tr class='popup_draghandle'><td align='left'><font color='white'><b>Detalles de Categoria</b></font></td><td align='right' style='width: 15px'><table border='0' width='100%'><tr><td align='right'><a class='popup_closebox' href='#'><font style='font-size:smaller' color='white'>X</font></a></td></tr></table></td></tr></table></td></tr>" & Chr(13))
Response.Write("<tr>" & Chr(13))
Response.Write("<td align='center'>" & Chr(13))
Response.Write("<table border ='0' width='95%' style='border-collapse:collapse'>" & Chr(13))
Response.Write("<tr><td> </td></tr>")
Response.Write("<tr><td align='center' style='width:110px'><b>Sub Categorias</b></td></tr>" & Chr(13))
If (cls.subcateroria(cod).Rows.Count = 0) Then
Response.Write("<tr><td align='center' style='width:110px'>No se encontraron Sub Categorias</td></tr>" & Chr(13))
Else
For b = 0 To cls.subcateroria(cod).Rows.Count - 1
Response.Write("<tr><td align='center' style='width:110px'>" & cls.subcateroria(cod).Rows(b)("sub_categoria").ToString & "</td></tr>" & Chr(13))
Next
End If
Response.Write("<tr><td> </td></tr>")
Response.Write("</table>" & Chr(13))
Response.Write("</td>" & Chr(13))
Response.Write("</tr>" & Chr(13))
Response.Write("</table>" & Chr(13))
Response.Write("</div>" & Chr(13))
Next
Response.Write("<script type='text/javascript'>" & Chr(13))
Response.Write("//<![CDATA[" & Chr(13))
Dim button1 As HyperLink
For a = 0 To GridView1.Rows.Count - 1
row = GridView1.Rows(a)
button1 = row.FindControl("HyperLink1")
Response.Write("new Popup('panel" & a + 2 & "','" & button1.ClientID & "',{modal:true})" & Chr(13))
Response.Write("new Popup('tooltip','" & button1.ClientID & "')" & Chr(13))
Next
Response.Write("//]]>" & Chr(13))
Response.Write("</script>" & Chr(13))
End If
%>