Tema: ayuda en VB6
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 11/11/2003, 02:50
Teri
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 22 años
Puntos: 0
nTotal = 0

For nInd = Me.cuadro1 to me.cuadro2
If (Me.cuadro1 mod me.cuadro2) = 0 Then
nTotal = nTotal + nInd
End If
Next

me.cuadro3 = nTotal


creo que esto debería funcionar....