Seleccionar Varios Registros En Una Tabla.


Objetivo: Seleccionar Varios Registros En Una Tabla.
Hola Comunidad!.

Creo que he dejado volar un poco la imaginación.
Imaginar que tenemos una tabla con x registros y queremos seleccionar algunos registros. De 100, supongamos 10.
Tendremos por ejemplo, un componente gridview, columview, etc.En el que podíamos usar selección múltiple.

¿ Que ocurre si nos desplazamos con la barra vertical por la tabla y seleccionamos otros ?.
¿ Se deseleccionan los anteriores ?.

Había imaginado que en el propio registro tuviéramos un campo que fuera un checkbox. ¿ Es posible ?.
O también es como si tuviéramos un combobox en un campo del registro y que pudiéramos escoger
desplegando este,si lo seleccionamos o no. Pero claro esto esto estaría dentro de cada fila de un componente
gridview,etc,etc.

He hecho ejemplos con base de datos pero nunca toque el de componentes de formulario para base de datos. Aun.

Saludos.

última edición por Shell el Martes, 09 Octobre 2012, 00:16; editado 1 vez
Objetivo: Re: Seleccionar Varios Registros En Una Tabla.
Lo mas aproximado seria:

- Seleccionar un registro y que un campo del mismo variara según se hiciera click o doble click en el.

No queda igual de presentable que un checkbox pero creo que funcionara sin problemas.

Saludos.

Objetivo: Re: Seleccionar Varios Registros En Una Tabla.
Ejemplo:

Public Sub Form_Open()

DiseTabla(grdTabla)
CreaDatos(grdTabla)

End


Public Function DiseTabla(ungrid As GridView) As GridView
With ungrid
.Columns.Count = 2
.Rows.Count = 0
.Header = 3
.Columns[0].Text = "Nombre"
.Columns[0].Width = 100
.Columns[0].Alignment = Align.Center
.Columns[1].Text = "Seleccionado"
.Columns[1].Width = 100
.Columns[1].Alignment = Align.Center
End With
Return ungrid
End


Public Function CreaDatos(ungrid As GridView) As GridView
Dim x As Integer

For x = 0 To 9
ungrid.Rows.Count = x + 1
ungrid[x, 0].Text = "Usuario" & x & "A"
ungrid[x, 1].Text = "No"
Next
Return ungrid

End

Public Sub grdTabla_Click()

If grdTabla[grdTabla.Row, 1].Text = "No" Then
grdTabla[grdTabla.Row, 1].Text = "Si"
Else
grdTabla[grdTabla.Row, 1].Text = "No"
Endif

End


Pues mas o menos así, lo pude hacer.Ahora ya seria cuestión de revisar cada fila y pasar todos los registros seleccionados para operar con ellos.

Saludos.

última edición por Shell el Martes, 09 Octobre 2012, 13:16; editado 1 vez

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1279s (PHP: -29% SQL: 129%)
Consultas SQL: 25 - Debug off - GZIP Activado