Entonces me parece brusco, cargar todo el inventario en un tableview, asi que se me ocurrio la idea, de solo mostrar 20 o 50 articulos por la consulta, y tener 2 flechas para poder navegar la consulta e ir actualizando el tableview con otros 20 0 50 articulos. Teneis una pista de como hacer esto? Gracias.
E aqui mi codigo:
Public Sub cargariventario()
Dim i As Integer
rs = cn.Exec("select * from iventario order by nombre_m")
tiv.Clear
tiv.Rows.Count = rs.Count
For i = 0 To (rs.Count - 1)
'color de fondo'
tiv[i, 0].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 1].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 2].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 3].background = IIf(SwColor, Color.Pink, Color.Green)
SwColor = Not swcolor
'fin de color de fondo'
tiv[i, 0].Text = rs["codigo"]
tiv[i, 1].Text = rs["nombre_m"]
tiv[i, 2].Text = rs["presentacion_m"]
tiv[i, 3].Text = rs["cantidadm"]
rs.Movenext
Next
End
Dim i As Integer
rs = cn.Exec("select * from iventario order by nombre_m")
tiv.Clear
tiv.Rows.Count = rs.Count
For i = 0 To (rs.Count - 1)
'color de fondo'
tiv[i, 0].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 1].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 2].background = IIf(SwColor, Color.Pink, Color.Green)
tiv[i, 3].background = IIf(SwColor, Color.Pink, Color.Green)
SwColor = Not swcolor
'fin de color de fondo'
tiv[i, 0].Text = rs["codigo"]
tiv[i, 1].Text = rs["nombre_m"]
tiv[i, 2].Text = rs["presentacion_m"]
tiv[i, 3].Text = rs["cantidadm"]
rs.Movenext
Next
End