mshflexgrid
Publicado por gustavo (218 intervenciones) el 23/09/2008 02:40:01
buen dia, intento trabajar con un mshflexgrid, ingreso datos de esta forma:
With flex
lin = .Rows - 1
.TextMatrix(lin, 0) = lin
.TextMatrix(lin, 1) = codigo
.TextMatrix(lin, 2) = articulo
.TextMatrix(lin, 3) = txtpre
X = InputBox("Ingrese la Cantidad de Articulos", "Datos", , 5000, 7000)
.TextMatrix(lin, 4) = X
If X <> "" Then tot = X * txtpre
.TextMatrix(lin, 5) = tot
'If .Rows = lin Then .Rows = lin + 1
.Rows = .Rows + 1
End With
como puedo borrar un a linea completa?
gracias
With flex
lin = .Rows - 1
.TextMatrix(lin, 0) = lin
.TextMatrix(lin, 1) = codigo
.TextMatrix(lin, 2) = articulo
.TextMatrix(lin, 3) = txtpre
X = InputBox("Ingrese la Cantidad de Articulos", "Datos", , 5000, 7000)
.TextMatrix(lin, 4) = X
If X <> "" Then tot = X * txtpre
.TextMatrix(lin, 5) = tot
'If .Rows = lin Then .Rows = lin + 1
.Rows = .Rows + 1
End With
como puedo borrar un a linea completa?
gracias
Valora esta pregunta


0