"Table is Busy"
Publicado por Diego Romero (67 intervenciones) el 17/12/2001 02:45:27
Hola.
Estoy mostrando una tabla .dbf en un form, eso anda muy bien pero quiero cambiar los indices de la tabla para ello uso este codigo:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Table1.Active := False;
Table1.Exclusive := True;
Table1.IndexDefs.Update;
for I := 0 to Table1.IndexDefs.Count - 1 do
if Table1.IndexDefs.Items[I].Fields = 'ADES' then
{ set that index as the current index for the table }
Table1.IndexName := Table1.IndexDefs.Items[I].Name;
Table1.Exclusive := False;
Table1.Active := True;
end;
que es el mismo que aparece como ejemplo en la ayuda de Delphi, sin embargo me salta una excepcion "Table Is Busy" cuando se ejecuta la linea
Table1.IndexDefs.Update;
¿alguien puede darme una pista de lo que estoy haciendo mal?, ademas de un DataSource, un Table y un DBGrid, estoy usando un DBNavigator, tiene algo que ver?
Gracias.
Estoy mostrando una tabla .dbf en un form, eso anda muy bien pero quiero cambiar los indices de la tabla para ello uso este codigo:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Table1.Active := False;
Table1.Exclusive := True;
Table1.IndexDefs.Update;
for I := 0 to Table1.IndexDefs.Count - 1 do
if Table1.IndexDefs.Items[I].Fields = 'ADES' then
{ set that index as the current index for the table }
Table1.IndexName := Table1.IndexDefs.Items[I].Name;
Table1.Exclusive := False;
Table1.Active := True;
end;
que es el mismo que aparece como ejemplo en la ayuda de Delphi, sin embargo me salta una excepcion "Table Is Busy" cuando se ejecuta la linea
Table1.IndexDefs.Update;
¿alguien puede darme una pista de lo que estoy haciendo mal?, ademas de un DataSource, un Table y un DBGrid, estoy usando un DBNavigator, tiene algo que ver?
Gracias.
Valora esta pregunta
0