Visual Basic - Grid para entrada de datos

Life is soft - evento anual de software empresarial
 
Vista:

Grid para entrada de datos

Publicado por Marcos Reyes (7 intervenciones) el 15/03/2004 18:15:36
Hola. anduve busando un grid para introducir datos a una matriz,(como la matriz es de tamaño variable no uso textboxes) pero los unicos grids que encontrè sólo sirven para enlazarse a una BD.(DBgrid,flexgrid,datagrid), ¿no existe un grid sencillo? o, ¿ còmo puedo usar alguno de estos?

gracias.
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:Grid para entrada de datos

Publicado por Fabian (501 intervenciones) el 15/03/2004 18:23:27
Derrepente te sirve , en la seccion Codigo Fuente de esta pagina hay un ejemplo de como ingresar datos a un FlexGrid en tiempo de ejecucion, tal vez te sirva
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

Te paso una solucion

Publicado por Hector (61 intervenciones) el 16/03/2004 17:18:49
Hola....Te paso una solucion que tengo, yo uso un codigo que me edita el msflexgrid, funciona muy bien, lo uso para facturar..
Te lo paso:
NOTA: factura2 es el nombre que le doy al msflexgrid

Private Sub facturas2_KeyPress(KeyAscii As Integer)
'ESTE CODIGO EDITA EL MSFLEXGRID
With facturas2
Select Case KeyAscii
Case vbKeyReturn
If .col + 1 <= .Cols - 2 Then
If .col = 1 Then
.col = .col + 2
Else
.col = .col + 1
End If
ElseIf .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.col = 1
Else
.Row = 1
.col = 1
End If

Case vbKeyBack
'CUANDO LE DOY CON LA TECLA BACK, BORRA LOS DATOS DE LA CELDA
If Trim(.Text) <> "" Then
.Text = Mid(.Text, 1, Len(.Text) - Len(.Text)) 'para borrar todo el contenido'
End If


Case Is < 32

Case Else
If .col = 0 Or .Row = 0 Then
Exit Sub
Else
.Text = .Text & Chr(KeyAscii)
End If
End Select
End With
End Sub

Avisame como te fue..

Saludos
Héctor
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