Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-09-2011
Avatar de Darkseratul
Darkseratul Darkseratul is offline
Miembro
NULL
 
Registrado: feb 2011
Posts: 58
Poder: 14
Darkseratul Va por buen camino
Exclamation !!Problemas con IF y sus valores !!

Hola amigos del clubdelphi espero que estén muy bien

Bueno lo que pasa es que tengo un problema el cual va mas o menos así

Trata de hacer una búsqueda secuencial y por tabla

La búsqueda secuencial ya esta y trabajo muy bien la cual funciona así en el evento onchange de un edit le pongo el siguiente código

Código Delphi [-]
begin
If (Edit1.text <> '') then
begin
ADOTable1.Filter := 'mitabla Like '''+ Edit1.Text +'*''';
ADOTable1.Filtered:=True;
end 

Else
begin
ADOTable1.Filtered:=False;

ok todo eso esta muy bien pero que pasa si quiero buscar en diferentes tablas
bueno con mi poca experiencia manejando delphi trato de hacer lo que busco

en el evento onchange de un edit pongo este codigo

Código Delphi [-]
begin
if CheckBox1.Checked = true then
begin
If (Edit1.text <> '') then
begin
ADOTable1.Filter := 'mitabla Like '''+ Edit1.Text +'*''';
ADOTable1.Filtered:=True;
end 

Else
begin
ADOTable1.Filtered:=False;

begin
if CheckBox2.Checked = true then
begin
If (Edit1.text <> '') then
begin
    ADOTable1.Filter := 'mitabla2 Like '''+ Edit1.Text +'*''';
    ADOTable1.Filtered:=True;
end 
Else
begin
ADOTable1.Filtered:=False;


begin
if CheckBox3.Checked = true then
begin
If (Edit1.text <> '') then
begin
    ADOTable1.Filter := 'mitabla3 Like '''+ Edit1.Text +'*''';
    ADOTable1.Filtered:=True;
end 
Else
begin
ADOTable1.Filtered:=False;
end;

tengo 3 CheckBox y supuesta mente a mi entender el evento onchange deve de ejecutar la parte de codigo que cumpla con lo requerido que en este caso es si al CheckBox esta en true lo mas curioso es que ya lo implemente pero solo me da resultado con la primer tabla (mitabla) pero cuando le pongo en otro CheckBox no hace nada

alguien me podria ayudar de ante mano muchas gracias
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Valores OldValue RicardoNavarro Firebird e Interbase 1 26-04-2007 17:57:54
Envio de valores Roilo PHP 8 19-10-2006 17:10:16
Problemas por sumas de valores grandes CamiloU Varios 4 23-06-2006 00:12:01
regresar valores Genner MS SQL Server 5 03-04-2006 13:55:43
Redondeo de valores JODELSA Varios 1 23-08-2003 18:33:50


La franja horaria es GMT +2. Ahora son las 00:48:44.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi