junio0or

No nada que ver asi no se hace, o almenos nunk lo e intentado asi... Esto en cualquier combo! lcXLBook = GETFILE("xls") IF !FILE( lcXLBook ) oVoz = CreateObject("SAPI.SpVoice") oVoz.Speak('Any file was find. Try again please') RETURN .F. ELSE...

xLetra = (thisform.text1.value) do case case xLetra = 1 messagebox('Uno') case xLetra = 'a' or xLetra = 'A' Messagebox('Letra a') Endcase Cuando son letras lo pones con comillas y cuando son números solo así.

Explicame cual es el folio Pero debe de ser algo como esto select ( campo1, campo 2 ) from (nombre de la tabla ) where (condicion ) into cursor xCur

Pues sqlexec ( cadena string , "Consulta1") select * from Consulta1 where ( condicion ) into cursor xCur if _tally > 0 thisform.text1.value = xCur.(campo) else Messagebox('No existen los datos') Endif

He generado muchos programas así y es muy fácil. Pon los campos que necesitas que no sean muchos y te lo mando así como tu correo.