Este es el código que utilizo...
Código Delphi
[-]
procedure TFrmContactos.MaskEdit1Change(Sender: TObject);
var
Filtro : String;
begin
If (MaskEdit1.Text <> '') then
begin
Dmodulo.tblContactos.Filtered := False;
If ComboBox1.Text = 'Teléfono' then Filtro := 'telefono Like '+MaskEdit1.Text
else If ComboBox1.Text = 'Celular' then Filtro := 'celular Like '''+ MaskEdit1.Text + '*''';
Dmodulo.tblContactos.Filter := Filtro;
Dmodulo.tblContactos.Filtered := True
end
else Dmodulo.tblContactos.Filtered := False;
end;
Cuando utilizo un Edit me presente al siguiente error al empezar a digitar el número en este formato (809)999-9999.
Cita:
|
Project Sisconem.exe raised exception class EOleException with message 'No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido'. Process stopped. Use or Run to continue.
|
y cuando utilizo un MaskEdit presenta el siguiente error...
Cita:
|
Project Sisconem.exe raised exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Process stopped. Use or Run to continue.
|
Es que acaso no es posible filtrar con formato como este (809)999-9999?
