|
Filtrado
Bueno, he estado buscando orientación con respecto a filtrado de datos en una tabla, no quiero usar SQL, ya que es para practicar la propiedad Filter del DataSet.
Bueno esta es la idea, como la ven funciona , pero quiero saber donde debo de colocar la opciones de filtrado: Tabla1.FilterOptions:=[foCaseInsensitive]; ya que la he puesto en varios sitios y el error que dice es: FilterOption are not Supported, o qué está malo, el codigo ya es viejo de otra práctica.
Este es el codigo del evento OnKeyDown del edit1.text para filtrar datos.
if key = vk_Escape then begin
datam.Tabla1 .Filtered := False; //Quitamos el filtro/
end;
If key = vk_return then begin
if rb1.checked then begin
datam.tabla1.Filter := 'Carnet = '''+ edit1.Text+'''' ;
end else
if rb2.checked then begin
datam.Tabla1 .Filter := 'Cedula = ''' + edit1.Text + '''';
end else
if rb3.checked then begin
datam.tabla1.Filter := 'Apellido1 = ''' + edit1.Text + '''';
end else
if rb4.checked then begin
datam.tabla1.Filter := 'Nombres = ''' + edit1.Text + '''';
end;
datam.tabla1.Filtered := true;
edit1.SetFocus;
end;
end;
Antonio Anil
República Dominicana.
|