Recorrer For hasta 0 en Vb 6.0

[chcma]

Buenas noches,

Verán, resulta uqe quiero recorrer las columnas de un DataGrid y eliminarlas según coincida su caption o no.

Para ello hice lo siguiente:

Dim i As Integer
For i = CInt(DataGrid1.Columns.Count - 1) To 0
If Not DataGrid1.Columns.Item(i).Caption = "titulo" Or Not DataGrid1.Columns.Item(i).Caption = "nombre" Or Not DataGrid1.Columns.Item(i).Caption = "apellidos" Then
DataGrid1.Columns.Remove (i)
End If
MsgBox DataGrid1.Columns.Item(i).Caption
i = i - 1
Next

Sin embargo no me entra en el bucle, ¿Alguien puede decirme por que peude ser?

[piopio]

Buenas noches,

Verán, resulta uqe quiero recorrer las columnas de un DataGrid y eliminarlas según coincida su caption o no.

Para ello hice lo siguiente:

Dim i As Integer
For i = CInt(DataGrid1.Columns.Count - 1) To 0 STEP -1 <- AGREGA ESTA PARTE
If Not DataGrid1.Columns.Item(i).Caption = "titulo" Or Not DataGrid1.Columns.Item(i).Caption = "nombre" Or Not DataGrid1.Columns.Item(i).Caption = "apellidos" Then
DataGrid1.Columns.Remove (i)
End If
MsgBox DataGrid1.Columns.Item(i).Caption
i = i - 1 <- NO
Next

Sin embargo no me entra en el bucle, ¿Alguien puede decirme por que peude ser?


Hi!! por que no pruebas con la clausula step
en lugar de decrementar la variable?

[Parzival]

Exacto, en todo caso lo de i = i -1 serviría si lo hicieses con un while/wend

Utiliza Step -1 como ha dicho piopio