Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: aedEric en Febrero 18, 2015, 02:18:32 pm
-
hola buenos dias a todos tengo una duda deseo validar todas la filas de una columna de flexgrid lo hago mediante el siguiente codigo
With Grid1
Dim i As Long
For i = 1 To .Rows - 1
If Trim(.TextMatrix(i, 1)) <> "hola" Or Trim(.TextMatrix(i, 1)) <> "dia" Then
MsgBox "No es un dato Valido"
End If
Next
End With
ahora tengo que validar unos quince datos, abra un forma de poder optimizar este codigo o otra forma de validarlos ? los datos son introducidos directamente en el grid
de antemano agradecere mucho sus opinion dudas o sugerencias gracias
-
With Grid1
Dim i As Long
Dim c As Long
For c = 1 To .Cols - 1
For i = 1 To .Rows - 1
If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Then
MsgBox "No es un dato Valido"
End If
Next i
Next c
End With
-
Hola Amigo Bazooka te agradezo mucho tu respuesta
fijate que tengo que validar uno 15 o 20 datos en lugar de 2
en esta linea
If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Then
ejemplo
If Trim(.TextMatrix(i, c)) <> "hola" Or Trim(.TextMatrix(i, c)) <> "dia" Or Trim(.TextMatrix(i, c)) <> "tarde" Or Trim(.TextMatrix(i, c)) <> "noche" Or Trim(.TextMatrix(i, c)) <> "lunes" Then
en esta parte es donde quisiera saber si abra alguna forma de optimizar el codigo de antemano agradezco sus opiniones o sugerencias muchas gracias
-
Quiza creando una matriz o sino usando InStr y preguntando si el elemento del grid existe en la cadena.
estoy en movil por eos no te puedo pasar codigo
-
gracias amigo tratare de armar algo saludos