Ayuda Ciclo For
Publicado por Marsela Soro (1 intervención) el 02/11/2014 16:13:54
Buenas estoy tratando de imprimir los valores del datagrind me funciona pero lo que trato de hacer es que si el valor de la primero columna es 0 o null no la imprima y pase a la siguiente columna gracias por la ayuda este es el código que uso
If GrdVenta.Rows.Count > 0 Then
For n = 0 To GrdVenta.Rows.Count - 1
Cant = CDec(GrdVenta.Rows(n).Cells(0).Value)
Descp = CDec(GrdVenta.Rows(n).Cells(1).Value)
esp = " X "
Ticket1.AgregaArticulo(Cant, esp, Descp) 'imprime una linea de descripcion
Next
End If
If GrdVenta.Rows.Count > 0 Then
For n = 0 To GrdVenta.Rows.Count - 1
Cant = CDec(GrdVenta.Rows(n).Cells(0).Value)
Descp = CDec(GrdVenta.Rows(n).Cells(1).Value)
esp = " X "
Ticket1.AgregaArticulo(Cant, esp, Descp) 'imprime una linea de descripcion
Next
End If
Valora esta pregunta


0