Actualizar ultimas 13 lineas del ListView
Publicado por Adolfo (55 intervenciones) el 14/05/2011 20:21:49
Tento el siguiente codigo que recorre todas las lineas del LisvtView:
Dim LI As New ListViewItem
For Each LI In LVFactura.Items
If LI.SubItems(0).Text = txtCodigoProd.Text Then
VarCantidad += Integer.Parse(LI.SubItems(3).Text) + integer.Parse(txtCantidadProd.Text)
End if
Next
Esto funciona pero recorre todo el ListView, yo necesito que solo recorra las ultimas 13 Lineas del ListView, para lo que estoy tratando de hacer lo siguiente:
For Each LI In LVFactura.Items
If LVFactura.Items.Count < 13 Then
If LI.SubItems(0).Text = txtCodigoProd.Text Then
VarCantidad += Integer.Parse(LI.SubItems(3).Text) + Integer.Parse(txtCantidadProd.Text)
End if
ElseIf LVFactura.Items.Count > 13 Then
Dim VarFilaEditar As Byte
VarFilaEditar = LVFactura.Items.Count - 13
'No sé como hacer aqui para que empiese a recorer el ListView a partir de el total de lineas - 13.
End If
Agradeceria cualquier sugerencia.
Dim LI As New ListViewItem
For Each LI In LVFactura.Items
If LI.SubItems(0).Text = txtCodigoProd.Text Then
VarCantidad += Integer.Parse(LI.SubItems(3).Text) + integer.Parse(txtCantidadProd.Text)
End if
Next
Esto funciona pero recorre todo el ListView, yo necesito que solo recorra las ultimas 13 Lineas del ListView, para lo que estoy tratando de hacer lo siguiente:
For Each LI In LVFactura.Items
If LVFactura.Items.Count < 13 Then
If LI.SubItems(0).Text = txtCodigoProd.Text Then
VarCantidad += Integer.Parse(LI.SubItems(3).Text) + Integer.Parse(txtCantidadProd.Text)
End if
ElseIf LVFactura.Items.Count > 13 Then
Dim VarFilaEditar As Byte
VarFilaEditar = LVFactura.Items.Count - 13
'No sé como hacer aqui para que empiese a recorer el ListView a partir de el total de lineas - 13.
End If
Agradeceria cualquier sugerencia.
Valora esta pregunta


0