Ver Mensaje Individual
  #5  
Antiguo 30-06-2013
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 14
giulichajari Va por buen camino
Continuando

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;
}
Responder Con Cita