Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

MSFlexGrid

Estas en el tema de MSFlexGrid en el foro de Visual Basic clásico en Foros del Web. Hola que tal alguien me puede ayudar con un problemita que tengo. necesito saber como ingresar datos en un msflexgrid en tiempo de ejecucion, tipo ...
  #1 (permalink)  
Antiguo 05/07/2006, 13:48
 
Fecha de Ingreso: julio-2006
Mensajes: 1
Antigüedad: 17 años, 10 meses
Puntos: 0
MSFlexGrid

Hola que tal alguien me puede ayudar con un problemita que tengo. necesito saber como ingresar datos en un msflexgrid en tiempo de ejecucion, tipo lista. o si hay otro control que pueda usar agradecere que me lo digan a este correo [email protected]

Gracias
  #2 (permalink)  
Antiguo 06/07/2006, 02:05
 
Fecha de Ingreso: noviembre-2005
Mensajes: 751
Antigüedad: 18 años, 6 meses
Puntos: 13
Hola

Ingresa los datos en el RecordSet que esta enlazado al msflexgrid y luego refrescalo.

--Saludos--
  #3 (permalink)  
Antiguo 07/07/2006, 06:52
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
en las faq's hay un ejemplo de como hacerlo se llama grid editable..

nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
  #4 (permalink)  
Antiguo 07/07/2006, 12:25
 
Fecha de Ingreso: mayo-2006
Mensajes: 19
Antigüedad: 18 años
Puntos: 0
llenar el grid atraves de un recordset

Bueno primeramente tenes que llenar un recordset con los datos que deseas mostrar en el Msflexgrid, despues especificas las columnas del msflexgrid y luego recorre el recordset(en el ejemplo rsfg) llenando los datos del mismo en el msflexgrid(en el ejemplo msfgExportar):

Dim i As Integer
Dim ex As String

i = 1
Do While Not rsfg.EOF

msfgExportar.Rows = msfgExportar.Rows + 1

msfgExportar.TextMatrix(i, 0) = IIf(IsNull(rsfg("Cod_Recibo")), "", Trim(rsfg"Cod_Recibo")))
msfgExportar.TextMatrix(i, 1) = IIf(IsNull(rsfg("Fec_Recibo")), "", Trim(rsfg("Fec_Recibo")))
msfgExportar.TextMatrix(i, 2) = IIf(IsNull(rsfg("Nom_Cliente")), "", Trim(rsfg("Nom_Cliente")))

rsfg.MoveNext
i = i + 1

Loop


Hojala te sirva

hasta luego.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 03:09.