por ejemplo
tengo 3 columnas en mi cuadro de lista
1.- nombre
2.- tipo de pago
3.- total.
aparte tengo 3 cuadros de texto, los que se llaman
a.- pagado
b.- credito
c.- pendiente.
en cada cuadro de texto necesito que aparesca la suma de cada total del cuadro de lista pero tomando en consideracion el tipo de pago . les mando una imagen de mi formulario
utilice la sig instruccion , peor me falta la condicion
ya que al colocarla en los cuadros de texto me da el valor del ultimo registro.
Dim i As Integer
'En caso de que queramos sumar una columna que no sea la dependiente,
'Ponemos como dependiente la columna que queremos sumar
Select Case Total
Case TipoPago = 1
Me.lstCPP.BoundColumn = 12
For i = 0 To Me.lstCPP.ListCount - 1
Me.totalp = Nz(Total, 0) + Me.lstCPP.ItemData(i)
Next i
'Volvemos a establecer la columna dependiente predeterminada
Me.lstCPP.BoundColumn = 1
End Select
espero me puedan ayudar
