Hola el codigo me quedo algo asi:
hice una mezcla de los codigos que vi
Código Delphi
[-]
procedure TFBusVend.txtCodigoChange(Sender: TObject);
Var
Valor,Valor1 : String;
begin
if (txtCodigo.text <> '') then
begin
modulo1.UModulo.TablaVendedor.Locate('idVendedor', txtCodigo.Text,[loPartialKey,loCaseInsensitive]);
GrillaBusVend.Visible := true;
Valor := txtCodigo.text;
Valor1 := Valor;
inc(Valor1[length(Valor1)]);
modulo1.UModulo.TablaVendedor.Filter := 'idVendedor >= '+QuotedStr(Valor)+ ' and idVendedor < ' +QuotedStr(Valor1);
modulo1.UModulo.TablaVendedor.Filtered := True;
end
else
begin
GrillaBusVend.Visible := false;
end
end;
eso fue lo que hice y funciona lo que quiero, salvo por una cosita, cdo borro todo se desaparece la tabla, eso es porq del lado del else dice GrillaBusVend.Visible := false; lo que no se es como volver a mostrar todos los registros de vuelta. debe ser facil, pero estuve anoche hasta las 3 am buscando la manera
.
Va mejorando!!!
jeje
Saluditos!!