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.
Seleccionar Varios Registros En Una Tabla.
Objetivo: Seleccionar Varios Registros En Una Tabla.
última edición por Shell el Martes, 09 Octobre 2012, 00:16; editado 1 vez
ú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.
- 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.
última edición por Shell el Martes, 09 Octobre 2012, 13:16; editado 1 vez
Ejemplo:
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.
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
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 mensajesNo 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