15/08/2011, 10:33
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 13 años, 5 meses Puntos: 5 | |
| Respuesta: progress bar
b = CInt((Val(row.Cells(11).Value)))
c = DgTotales.Rows.Count
ProgressBar1.Maximum = c
ProgressBar1.Minimum = 0
If b = a Then
Label14.Text = "100% Completo"
ElseIf b = 0 Then
Label14.Text = "100% Completo"
Exit For
Exit Sub
Else
ProgressBar1.Value += 1
a = CInt((Val(row.Cells(11).Value)))
Textpruebafinal.Text = CStr(a)
EN ESTE CASO NO CONSIGO QUE SALGA DEL FOR...sabeis por qué? |