trabajar con grid

Joan,

Checate estos enlaces de devbuzz.com quizas te sean útiles.

http://www.devbuzz.com/content/zinc...et_pg1.asp

http://www.devbuzz.com/content/zinc...id_pg1.asp

Saludos,

Gabriel Corvera

"joan_wannet" escribió en el mensaje
news:%23%23wf8$

Hola a todos,
Tengo que desarrollar una pequeña aplicación con pockeaccess y esta es :
Tres campos que serán fecha, numero cliente y nombre cliente, y luego un
grid que recoga el codigo articulo, descripcion , cantidad y precio.
La primera parte, la de hacer el form con los tre campos la tengo medio
solventada, pero lo de insertar un grid para recoger ( 1 a varios ) varias
lineas de articulos no me salgo.
Alguien tiene un codigo parecido para hecharle un vistazo y me sirva para
entenderlo?
Saludos y gracias.
Joan

Aqui tienes un ejemplo de como insertar los articulos en el grid.



Private Sub mostrar_grid(numart)
Dim i As Integer
Dim iva
i = numart - 10
rsArticulos.MoveFirst
gridArticulos.Clear
gridArticulos.Rows = 0
gridArticulos.ColWidth(0) = 540
gridArticulos.ColWidth(1) = 1530
gridArticulos.ColWidth(2) = 600
gridArticulos.ColWidth(3) = 600
gridArticulos.AddItem ("Codigo" + vbTab + "Descripción" + vbTab + "PVP"
+ vbTab + "PVP+IVA")
rsArticulos.Move (i)
While Not (rsArticulos.EOF) And (i < numart)
rsImpuesto.MoveFirst
While Not rsImpuesto.EOF
If rsImpuesto.Fields("codigo") = rsArticulos.Fields("c_iva")
Then
iva = rsImpuesto.Fields("iva")
End If
rsImpuesto.MoveNext
Wend
gridArticulos.AddItem (Trim(rsArticulos.Fields("codigo")) + vbTab +
rsArticulos.Fields("descrip") + vbTab +
CStr(rsArticulos.Fields("p_vtaunieu")) + vbTab +
(CStr(rsArticulos.Fields("pvpunieu"))))
rsArticulos.MoveNext
i = i + 1
Wend
rsArticulos.MoveFirst
End Sub

"joan_wannet" escribió en el mensaje
news:%23%23wf8$

Hola a todos,
Tengo que desarrollar una pequeña aplicación con pockeaccess y esta es :
Tres campos que serán fecha, numero cliente y nombre cliente, y luego un
grid que recoga el codigo articulo, descripcion , cantidad y precio.
La primera parte, la de hacer el form con los tre campos la tengo medio
solventada, pero lo de insertar un grid para recoger ( 1 a varios ) varias
lineas de articulos no me salgo.
Alguien tiene un codigo parecido para hecharle un vistazo y me sirva para
entenderlo?
Saludos y gracias.
Joan

Gracias Fran, no sabes lo que me ahorras, pues vengo del vb6 y esto de
entrada no se bien como moverme.Con tu codigo me va perfecto.
Tengo alguna duda :
Aqui no existe un encabezado para Names?
Con vbTab, te desplazas al siguiente row?
Si quiero que el usuario inserte texto dentro de una celda, como sería?
Perdona que abuse pero es que voy un poco torpe.

Saludos y muchas gracias por la ayuda prestada.
Joan Vila



"Fran" escribió en el mensaje
news:%

Aqui tienes un ejemplo de como insertar los articulos en el grid.



Private Sub mostrar_grid(numart)
Dim i As Integer
Dim iva
i = numart - 10
rsArticulos.MoveFirst
gridArticulos.Clear
gridArticulos.Rows = 0
gridArticulos.ColWidth(0) = 540
gridArticulos.ColWidth(1) = 1530
gridArticulos.ColWidth(2) = 600
gridArticulos.ColWidth(3) = 600
gridArticulos.AddItem ("Codigo" + vbTab + "Descripción" + vbTab +

"PVP"

+ vbTab + "PVP+IVA")
rsArticulos.Move (i)
While Not (rsArticulos.EOF) And (i < numart)
rsImpuesto.MoveFirst
While Not rsImpuesto.EOF
If rsImpuesto.Fields("codigo") = rsArticulos.Fields("c_iva")
Then
iva = rsImpuesto.Fields("iva")
End If
rsImpuesto.MoveNext
Wend
gridArticulos.AddItem (Trim(rsArticulos.Fields("codigo")) + vbTab

+

rsArticulos.Fields("descrip") + vbTab +
CStr(rsArticulos.Fields("p_vtaunieu")) + vbTab +
(CStr(rsArticulos.Fields("pvpunieu"))))
rsArticulos.MoveNext
i = i + 1
Wend
rsArticulos.MoveFirst
End Sub

"joan_wannet" escribió en el mensaje
news:%23%23wf8$
> Hola a todos,
> Tengo que desarrollar una pequeña aplicación con pockeaccess y esta es :
> Tres campos que serán fecha, numero cliente y nombre cliente, y luego un
> grid que recoga el codigo articulo, descripcion , cantidad y precio.
> La primera parte, la de hacer el form con los tre campos la tengo medio
> solventada, pero lo de insertar un grid para recoger ( 1 a varios )

varias

> lineas de articulos no me salgo.
> Alguien tiene un codigo parecido para hecharle un vistazo y me sirva

para

> entenderlo?
> Saludos y gracias.
> Joan
>
>

Pues yo no he encontrado como poner el encabezado pero puedes poner este
codigo adicional al final para simular uno:

gridArticulos.Row = 0
For j = 0 To 3
gridArticulos.Col = j
gridArticulos.CellFontBold = True
gridArticulos.CellAlignment = flexAlignCenterCenter
gridArticulos.CellBackColor = &H800000
gridArticulos.CellForeColor = &HFFFFFF
Next
gridPrecios.Row = 1

El vbTab sirve para desplazarte al siguiente row cuando utilizas el AddItem,
asi insertas las lineas completas.

Una limitación que tiene el grid es que es de solo lectura asi que si
quieres que el usuario inserte texto en un grid te tendras que ayudar de
unos
textbox con un boton de insertar que lo inserte en la tabla y el grid.



"joan_wannet" escribió en el mensaje
news:OEo5$

Gracias Fran, no sabes lo que me ahorras, pues vengo del vb6 y esto de
entrada no se bien como moverme.Con tu codigo me va perfecto.
Tengo alguna duda :
Aqui no existe un encabezado para Names?
Con vbTab, te desplazas al siguiente row?
Si quiero que el usuario inserte texto dentro de una celda, como sería?
Perdona que abuse pero es que voy un poco torpe.

Saludos y muchas gracias por la ayuda prestada.
Joan Vila



"Fran" escribió en el mensaje
news:%
> Aqui tienes un ejemplo de como insertar los articulos en el grid.
>
>
>
> Private Sub mostrar_grid(numart)
> Dim i As Integer
> Dim iva
> i = numart - 10
> rsArticulos.MoveFirst
> gridArticulos.Clear
> gridArticulos.Rows = 0
> gridArticulos.ColWidth(0) = 540
> gridArticulos.ColWidth(1) = 1530
> gridArticulos.ColWidth(2) = 600
> gridArticulos.ColWidth(3) = 600
> gridArticulos.AddItem ("Codigo" + vbTab + "Descripción" + vbTab +
"PVP"
> + vbTab + "PVP+IVA")
> rsArticulos.Move (i)
> While Not (rsArticulos.EOF) And (i < numart)
> rsImpuesto.MoveFirst
> While Not rsImpuesto.EOF
> If rsImpuesto.Fields("codigo") = rsArticulos.Fields("c_iva")
> Then
> iva = rsImpuesto.Fields("iva")
> End If
> rsImpuesto.MoveNext
> Wend
> gridArticulos.AddItem (Trim(rsArticulos.Fields("codigo")) +

vbTab

+
> rsArticulos.Fields("descrip") + vbTab +
> CStr(rsArticulos.Fields("p_vtaunieu")) + vbTab +
> (CStr(rsArticulos.Fields("pvpunieu"))))
> rsArticulos.MoveNext
> i = i + 1
> Wend
> rsArticulos.MoveFirst
> End Sub
>
> "joan_wannet" escribió en el mensaje
> news:%23%23wf8$
> > Hola a todos,
> > Tengo que desarrollar una pequeña aplicación con pockeaccess y esta es

:

> > Tres campos que serán fecha, numero cliente y nombre cliente, y luego

un

> > grid que recoga el codigo articulo, descripcion , cantidad y precio.
> > La primera parte, la de hacer el form con los tre campos la tengo

medio

> > solventada, pero lo de insertar un grid para recoger ( 1 a varios )
varias
> > lineas de articulos no me salgo.
> > Alguien tiene un codigo parecido para hecharle un vistazo y me sirva
para
> > entenderlo?
> > Saludos y gracias.
> > Joan
> >
> >
>
>

On Tue, 6 Jul 2004 13:35:49 +0200, "Fran" wrote:

Una limitación que tiene el grid es que es de solo lectura asi que si
quieres que el usuario inserte texto en un grid te tendras que ayudar de
unos
textbox con un boton de insertar que lo inserte en la tabla y el grid.

Yo me he hecho una clase chorras para editar los grid. Si alguien la
quiere la pongo, son solo unas 200 líneas.

Saludos
Alfredo