Código Delphi [-] procedure TfrConClientes.CbIndexChange(Sender: TObject); begin Case CbIndex.ItemIndex of 0: DmLux.Cli.IndexName:=''; 1: DmLux.Cli.IndexName:='Busquedas'; 2: DmLux.Cli.IndexName:='Nombres'; 3: DmLux.Cli.IndexName:='Poblaciones'; end; end;
procedure TfrConClientes.CbIndexChange(Sender: TObject); begin Case CbIndex.ItemIndex of 0: DmLux.Cli.IndexName:=''; 1: DmLux.Cli.IndexName:='Busquedas'; 2: DmLux.Cli.IndexName:='Nombres'; 3: DmLux.Cli.IndexName:='Poblaciones'; end; end;