Visual Basic - Busqueda de datos trabada

Life is soft - evento anual de software empresarial
   
Vista:

Busqueda de datos trabada

Publicado por Alex (2 intervenciones) el 28/07/2008 19:36:00
Hola que tal.
Tengo el siguiente problema.
Cuando ejecuto el sub me extrae los datos. todo va bien hasta que hago que sigua buscando mas datos se queda trabado y ya no extrae mas datos.

No se talvez no hice bien el codigo o que es lo que me esta fallado.

Public Sub Extract_Hoja(ByVal T As TextBox, Rval As String)

Do Until InStr(T.SelText, "HOJA ")
T.SelLength = T.SelLength + 1
Loop
T.SetFocus
T.SelText = ""

Do Until InStr(T.SelText, Chr(13) & Chr(10))
T.SelLength = T.SelLength + 1
Loop

T.SelLength = T.SelLength - 2
T.SetFocus
Rval = T.SelText
' Debug.Print Rval
T.SelText = ""
Exit Sub
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Busqueda de datos trabada

Publicado por igor (633 intervenciones) el 28/07/2008 20:03:04
Ayudaría que explicaras que estas intentando hacer.

Quizás T.SelLength = T.SelLength - 2 tenga algo que ver.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Busqueda de datos trabada

Publicado por Alex (2 intervenciones) el 28/07/2008 21:26:39
El T.SelLength = T.SelLength - 2 lo utilizo para elminar unos caracteres extras que no me sirven.

Per gracias por tu comentario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Busqueda de datos trabada

Publicado por igor (633 intervenciones) el 29/07/2008 19:13:02
Buuuffffffffff. Espera que me voy a tomar unas vacaciones después de leer tu extensa explicación. Yo creo que así resolverás todas las dudas de tu vida.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar