ver tpagecontrol
 

Estimados: tengo una tabla con una columna llamada cod y por otro lado tengo un tpagecontrol con 2 paginas ocultas una se llama uno y la otra dos, la idea es que cuando en la columna cod de mi tabla se visualice el numero 1 la pestaña dos sea visible, lo mismo con el numero 2, al aparecer en mi tabla se vea la pestaña dos. Bueno hasta alli no tengo problemas pero el asunto es que cuando en la tabla me aparecen los números 1 y 2 no logro que se vean las dos pestañas al mismo tiempo. Para ello me hice un case of

Código Delphi [-]
case tabla.FieldByName('cod').AsInteger of
      1: begin tablal.ActivePageIndex:= 0; uno.TabVisible:= True; end;
      2: begin tabla.ActivePageIndex:= 1; dos.TabVisible:= True; end;
  end;

lo que note es que con la función FieldByName solo puedo detectar el 1º registro aparentemente, bueno si alguien me da una mano estoy usando delphi xe2 con mysql y la librería zeoslib para conectarme. Gracias

Hola vicentnew, puedes contar la cantidad de registros que te devuelve, por ejemplo utilizar recordcount (esto no siempre funciona) o de la forma que quieras.

Código Delphi [-]
 if tabla.RecordCount>1 then
  begin
    uno.TabVisible:= True;
    dos.TabVisible:= True;
  end
 else 
   case tabla.FieldByName('cod').AsInteger of 
   .........................................
   .........................................

Saluditos