Ayuda Busqueda en DBGrid con 2 campos

[giulichajari]

Código Delphi [-]
{
  String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")
    Edit3->Text = "";
  else
    Edit2->Text = "";
  Table1->Filtered = false;
}

Porque pones el filtrado de la tabla en false, no me funciono, y al cvambiar esa linea a true me anduvo para un solo Edit, para el Edit3.

Este es el codigo del cpp del form en el que trabajo:

Código Delphi [-]
void __fastcall TForm5::Edit2Change(TObject *Sender)
{
     String sFilter = "";
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2" && !ed->Text.IsEmpty()) {
    Edit3->Text = "";
    sFilter = "Marca = " + QuotedStr(Edit2->Text + "*");
  }
  if (ed->Name == "Edit3" && !ed->Text.IsEmpty()) {
    Edit2->Text = "";
    sFilter = "Detalle = " + QuotedStr(Edit3->Text + "*");
  }
  Table1->Filtered = false;
  Table1->Filter   = sFilter;
  Table1->Filtered = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Edit3Change(TObject *Sender)
{
         String sFilter = "";
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2" && !ed->Text.IsEmpty()) {
    Edit3->Text = "";
    sFilter = "Marca = " + QuotedStr(Edit2->Text + "*");
  }
  if (ed->Name == "Edit3" && !ed->Text.IsEmpty()) {
    Edit2->Text = "";
    sFilter = "Detalle = " + QuotedStr(Edit3->Text + "*");
  }
  Table1->Filtered = false;
  Table1->Filter   = sFilter;
  Table1->Filtered = true;
}
//---------------------------------------------------------------------------




void __fastcall TForm5::Button1Click(TObject *Sender)
{
Form6->QuickRep1->Preview();
}
//---------------------------------------------------------------------------



void __fastcall TForm5::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
       if (Key == VK_F1)
    Form7->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm5::FormCreate(TObject *Sender)
{
   KeyPreview = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Enter(TObject *Sender)
{
   String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")

    Edit3->Text = "";
  else
    Edit2->Text = "";

  Table1->Filtered = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button2Enter(TObject *Sender)
{
     String sFilter;
  TEdit *ed = static_cast  (ActiveControl);

  if (ed->Name == "Edit2")
    Edit3->Text = "";

  else
    Edit2->Text = "";
  Table1->Filtered = true;
}

[ecfisa]

Hola.

Creo que estas mezclando el modo del mensaje #2 con el que te sugerí después (msg #4). Para evitar confusiones te armé un pequeño ejemplo que consta de un Form principal, un DataModule, otro form para visualizar el QuickRep, así podrás estudiarlo con tranquilidad. Solo tenes que crear una carpeta y descomprimir el archivo ahí (incluye tabla de BCDEMOS).

Saludos

[giulichajari]

Gracias por todo..