Ver Mensaje Individual
  #1  
Antiguo 26-06-2013
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 14
giulichajari Va por buen camino
Post Ayuda Busqueda en DBGrid con 2 campos

Hola de vuelta

Bueno tengo un Formulario con un DBGrid, 2 Edit correspondiente a 2 campos de la base de datos, para filtrar los datos del DBGrid. Pero necesito ayuda en lo siguiente
1-Que al borrar una letra en un Edit, se actualize la busqueda, es decir el DBGrid
2-Que al salir de un Edit se borre el otro y el dbgrid vuelva a sin estar filtrado.
3-Exportar el DBGRid filtrado para imprimir.

El codigo que hice fue el siguiente:
Código Delphi [-]
void __fastcall TForm5::Edit2Change(TObject *Sender)
{

        Table1->Filtered = false;
        Table1->Filter = "Detalle =" + QuotedStr(Edit2->Text+"*");
        Table1->Filtered = true;
}
//---------------------------------------------------------------------------


void __fastcall TForm5::Edit3Change(TObject *Sender)
{
             
Table1->Filtered = false;
  Table1->Filter = "Marca =" + QuotedStr(Edit3->Text+"*");
        Table1->Filtered = true;
}
//---------------------------------------------------------------------------


void __fastcall TForm5::Edit2Click(TObject *Sender)
{
   Edit3->Text=EmptyStr;
   Table1->Filtered=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Edit3Click(TObject *Sender)
{
      Edit2->Text=EmptyStr;
      Table1->Filtered=false;  
}

Al cambiar OnChange, que actualize el DBGrid.
Y al hacer click, que vacie el otro edit, y que el filtro vuelva a 0.
Pero no funciona.
Y el como exportar los resultados para imprimir no se, osea se usar quickreport pero no se como exportar el dbgfrid.
Responder Con Cita