[jaimeh]

Muchas gracias por responderme Casimiro

He escrito este código en delphi

Código Delphi [-]

                    qryDestino.SQL.Text :=
                      'select RDB$DEFAULT_SOURCE ' +
                      'from RDB$RELATION_FIELDS ' +
                      'where RDB$FIELD_NAME= ' + fldSource.FieldName +
                      //el campo
                      ' and RDB$RELATION_NAME= '+ listSource[j];
                      // <--  la tabla


                    qryDestino.Open;

Como tengo que hacerlo para recoger el valor que me daría

Muchas gracias