Visual Basic - ALGUN EXPERTO EN FLEXGRID

SRES.

TENGO UNA FLEXGRID CON DATOS DE UNA TABLA Y QUIERO PONER DOS COLUMNAS MAS PARA CAPTURAR DATOS EN CADA RENGLON (QUE CORRESPONDEN A CADA REGISTRO -RENGLON-)

OTRA SERIA UN PONER UNOS TEXTBOX, AL LADO DEL FLEXGRID. PERO SE VE MAS ESTETICO DENTRO DEL GRID. NO?

AYUDA, POR FAVOR!.

MIL GRACIAS ANTICIPADAS.

Estimo que estas trabajando con el Flex asociado a datos y no cargandolo manualmente, las propiedades Cols y Rows sirven para determinar o obtener el número de columnas y filas del Flex, de manera que con solo colocar flex.Cols=Flex.Cols+2 estarias agragando dos columnas. El otro punto es la inserción de datos en las celdas de esas columnas, usa dos textbox con la propiedad visible en false, para luego utilizarlos en el ingreso, haciendolos aparecer en cada celda, te paso este ejemplo:(Flex es un Flexgrid, Txt es un textbox)

'Determinamos la celda en función de la posición del Puntero del Mouse
flex.Row= flex.MouseRow
Flex.Col= Flex.MouseCol
'Borramos el Contenido del Txt
Txt.Text =" "
'Configuramos Tamaño y posición del Text en función de la celda
'Elegida
Txt.Top = Flex.Top + Flex.CellTop
Txt.Left = Flex.Lef + Flex.CellLeft
Txt.Width = Flex.CellWidth
Txt.Height = Flex.CellHeight

'Movemos el contenido de la Celda al Text
Txt.text = Flex.Text

'Por Ultimo mostramos el Text
Txt.Visible = True
Txt.SetFocus

Luego en el Evento LeaveCell del Flex , que se dispara cuando se abandona una celda
Private Sub Flex_LeaveCell()
'Movemos el Text a la celda
Flex.Text = Txt.Text
end Sub

Espero que te sea util, Saludos
Enrique Vazquez
Buenos Aires - Argentina

Estimo que estas trabajando con el Flex asociado a datos y no cargandolo manualmente, las propiedades Cols y Rows sirven para determinar o obtener el número de columnas y filas del Flex, de manera que con solo colocar flex.Cols=Flex.Cols+2 estarias agragando dos columnas. El otro punto es la inserción de datos en las celdas de esas columnas, usa dos textbox con la propiedad visible en false, para luego utilizarlos en el ingreso, haciendolos aparecer en cada celda, te paso este ejemplo:(Flex es un Flexgrid, Txt es un textbox)

'Determinamos la celda en función de la posición del Puntero del Mouse
flex.Row= flex.MouseRow
Flex.Col= Flex.MouseCol
'Borramos el Contenido del Txt
Txt.Text =" "
'Configuramos Tamaño y posición del Text en función de la celda
'Elegida
Txt.Top = Flex.Top + Flex.CellTop
Txt.Left = Flex.Lef + Flex.CellLeft
Txt.Width = Flex.CellWidth
Txt.Height = Flex.CellHeight

'Movemos el contenido de la Celda al Text
Txt.text = Flex.Text

'Por Ultimo mostramos el Text
Txt.Visible = True
Txt.SetFocus

Luego en el Evento LeaveCell del Flex , que se dispara cuando se abandona una celda
Private Sub Flex_LeaveCell()
'Movemos el Text a la celda
Flex.Text = Txt.Text
end Sub

Espero que te sea util, Saludos
Enrique Vazquez
Buenos Aires - Argentina