Visual Basic - seleccionar una fila en datagrid

Life is soft - evento anual de software empresarial
 
Vista:

seleccionar una fila en datagrid

Publicado por Rafa (51 intervenciones) el 06/11/2003 18:24:32
Quiero pulsar sobre una fila del datagrid y q se seleccione y todo lo q contenga la fila,se copie en otro datagrid,listbox o textbox.
¿Alguien sabe como puedo acerlo?
Gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:seleccionar una fila en datagrid

Publicado por César Navarro (158 intervenciones) el 06/11/2003 19:11:35
He tratado de añadir el control pero no me lo permite por cuestion de licencias o permisos, sin embargo he podido con el Microsoft Flex Grid y te he generado este código, espero te sirva, no creo que las propiedades cambien de un control a otro.

Pegate en un proyecto nuevo un CommandButton, un List y un FlexGrid (con 10 columnas y 50 lineas) en el codigo del formulario pon este codigo

-----------------------------------------------------------------------------------------
'Private Sub Command1_Click()
' Dim iPos As Integer
' Dim LPos As Integer
'
' iPos = InStr(1, MSFlexGrid1.Clip, Chr(13))
' LPos = 1
' Do While iPos > 0
' If LPos = 1 And iPos < LPos Then Exit Sub
' List1.AddItem Mid(MSFlexGrid1.Clip, LPos, iPos - LPos)
' LPos = iPos + 1
' iPos = InStr(LPos, MSFlexGrid1.Clip, Chr(13))
' Loop
' List1.AddItem Mid(MSFlexGrid1.Clip, LPos, Len(MSFlexGrid1.Clip) - LPos + 1)
'End Sub
'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Continuacion!!!!!

Publicado por César Augusto (158 intervenciones) el 06/11/2003 19:12:22
'Private Sub Form_Load()
' Dim i As Integer
' Dim j As Integer
'
' For i = 1 To MSFlexGrid1.Rows - 1
' For j = 1 To MSFlexGrid1.Cols - 1
' MSFlexGrid1.TextMatrix(i, j) = i * j
' Next j
' Next i
'End Sub
'
'Private Sub MSFlexGrid1_Click()
' If MSFlexGrid1.Row < 1 Then
' MSFlexGrid1.ColSel = MSFlexGrid1.Col
' MSFlexGrid1.RowSel = MSFlexGrid1.Rows - 1
' End If
'End Sub
------------------------------------------------------------------------------------
Lo he comentado para que no pierda las sangrías,
corre el proyecto y haz click en una columna en la primera linea,
luego das click en el boton y te carga la info en la lista

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar