--
Víctor B.
Desarrollador independiente
"Juan Martín" <mp...@hotmail.com> escribió en el mensaje
news:uo0UX2Hj...@TK2MSFTNGP04.phx.gbl...
Saludos,
--
--
Lluís Franco i Montanyés
[MS-MVP-MCP Visual Basic]
--
Web: http://sps.uyssoft.com
Blog: http://msmvps.com/blogs/lfranco
Geeks: http://geeks.ms/blogs/lfranco
--
(Guía de netiquette del foro)
http://www.uyssoft.com/MSNews.aspx?sm=10
FIMARGE, S.A.
Principat d'Andorra
lfranco@ODIO_EL_SPAMfimarge.ad
Tel.: +376 805 100
Fax: +376 824 500
--
Mi Perfil MVP en:
https://mvp.support.microsoft.com/profile=02aa1615-1a2f-4202-bc3f-aec297d967d2
--
This posting is provided "AS IS" with no warranties, and confers no rights.
Este mensaje se proporciona "COMO ESTA" sin garantias y no otorga ningun
derecho.
"Juan Martín" <mp...@hotmail.com> escribió en el mensaje
news:uo0UX2Hj...@TK2MSFTNGP04.phx.gbl...
Dim NodX As ListItem
Set NodX = ListView1.ListItems.Add(, , txtClave)
NodX.Tag = txtClave.Tag
'al agregar nodos de esta manera, puedes aceder a la propiedad
Tag de cada sub item.
NodX.ListSubItems.Add , , txtCantidad
NodX.ListSubItems.Add , , txtDescripcion
'en esta columna muestro la cantidad con formato
NodX.ListSubItems.Add , , Format(Val(txtPrecio), "Currency")
'en la misma columna pero en el tag, gaurdo el mismo valor pero
sin formato.
NodX.ListSubItems.Item(3).Tag = Val(txtPrecio)
NodX.ListSubItems.Add , , Format(Val(txtCantidad) *
Val(txtPrecio), "Currency")
NodX.ListSubItems.Item(4).Tag = Val(Val(txtCantidad) *
Val(txtPrecio))
Otra cosa que puedes hacer es crear el subitem vacio y en los tag de cada
subitem almacenar los datos, de esta manera aunque se vean las colunas,
estas no contendran datos.
--
Saludos
--
LSC Rene M. Berra
rberra[ARROBA]sprocom[PUNTO]com
SPROCOM Software
http://www.sprocom.com
Atlixco, Puebla, Mex.
"Juan Martín" <mp...@hotmail.com> escribió en el mensaje
news:uo0UX2Hj...@TK2MSFTNGP04.phx.gbl...