Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/03/2005, 08:35
Facha
 
Fecha de Ingreso: marzo-2005
Mensajes: 90
Antigüedad: 20 años
Puntos: 0
resaltar datos onMouseOver

Hola todos:
tengo un datagrid cargado con datos, deseo saber si es posible resaltar cada fila cuando el usuario pasa el mouse sobre ella. es posible? Les adjunto el código
desde ya muchas gracias
salu2

codigo:
Sub page_load

dim codigo as string
codigo = session("usuario")

dim miFecha as string
miFecha= datetime.now.tostring("dd-MM-yyyy")

'evento
BindGrid

response.write("<p align='center'><font face= Verdana size=4><b>MANTENIMIENTO DE USUARIOS</b></font></p>")
response.write("<p align='left'><font face='Verdana'>Bienvenido:&nbsp;<b>"+codigo+"</b> </font></p>")
response.write("<p align='left'><font face='Verdana'>Hoy es:&nbsp;<b>"+miFecha+"</b></font></p>")

End Sub
'evento cambiar de pagina
Sub Page_Change(sender As Object, e As DataGridPageChangedEventArgs)
dim start as Integer
start = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
MyDataGrid.CurrentPageIndex = e.NewPageIndex
BindGrid
End Sub
'conexion, SQL y Grilla
Sub BindGrid()
dim strConexion as string = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\acontecer.mdb"
dim ds as DataSet = new DataSet()
dim adapter as OledbDataAdapter = new OledbDataAdapter("Select * from Suscripciones", strConexion)
adapter.Fill(ds,"Suscripciones")
MyDataGrid.DataSource=ds.Tables("Suscripciones").D efaultView
MyDataGrid.DataBind()

End Sub

'rutinas de los botones
Sub Button1_Click(sender As Object, e As EventArgs)
response.redirect("formaltas.htm")
End Sub

Sub Button2_Click(sender As Object, e As EventArgs)
session.abandon
response.redirect("ingreso.htm")
End Sub

Sub Button3_Click(sender As Object, e As EventArgs)
dim miDepto as string
miDepto = TextoDepto.text
response.redirect("filtro_dep.aspx?cod="+miDepto)
End Sub

Sub Button4_Click(sender As Object, e As EventArgs)
dim miApe as string
miApe = TextoApellido.text
response.redirect("filtro_ape.aspx?cod="+miApe)
End Sub

Sub Button5_Click(sender As Object, e As EventArgs)
dim miNom as string
miNom = TextoNombre.text
response.redirect("filtro_nom.aspx?cod="+miNom)
End Sub