Visual Basic - Error carga meflexgrid

Life is soft - evento anual de software empresarial
   
Vista:

Error carga meflexgrid

Publicado por leva (2 intervenciones) el 13/11/2009 15:48:39
Hola gente, tngo un pequeño problemita, tengo un código de carga reutilizable ubicado en el módulo, la idea es que sea reutilizable, osea que usar solamente este codigo para cargar todas las grillas del proyecto . Acá les paso el código para que lo revisen haber si alguien encuentra el error de carga.

Saludos

Oscar
Sub cargar_grilla(f As Form, grilla As MSFlexGrid, rx As ADODB.Recordset)
With f.grilla
.Rows = rx.RecordCount + 1
.Cols = rx.Fields.Count + 1
.Row = 0
For i = 1 To .Cols - 1
.Col = i
.Text = rx.Fields(i - 1).Name
Next i
rx.MoveFirst
For i = 1 To .Rows - 1
For j = 1 To .Cols - 1
.Row = i
.Col = j
.Text = rx.Fields(j - 1).Value
Next j
rx.MoveNext
Next i
End With
End Sub
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:Error carga meflexgrid

Publicado por jaime guerrero (29 intervenciones) el 18/11/2009 15:24:52
tio, marca en que linea te sale el error
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