Query1:Field no found

[cloayza]

Podrías explicitar los campos que te estan dando problemas...y probar de esta forma...

Código Delphi [-]
QUERY1.SQL.Clear;
QUERY1.SQL.Add('SELECT GMCO, GMOBJ, GMSUB ');
QUERY1.SQL.Add('FROM PRODDTA.F0901 ' );
QUERY1.SQL.Add('WHERE GMCO=''00013'' AND GMOBJ IN (''6250'',''6400'')');
query1.SQL.add(' AND GMSUB=''020201''');
QUERY1.Open;
for i:=0 to Query1.FieldCount-1 do
        memo1.lines.add( Format('Campo %d: %s',[i, Query1.Fields[i].FieldName]));

LINEA:='AUX='+Query1.FieldByName('gmsub').AsString+'#'+
          'NOM='+Query1.FieldByName('gmobj').AsString+'#';

A ver como va la cosa...

[Juan Quintana]

Lo intente como me sugeriste

Código Delphi [-]
QUERY1.SQL.Clear;
QUERY1.SQL.Add('SELECT GMCO, GMOBJ, GMSUB ');
QUERY1.SQL.Add('FROM PRODDTA.F0901 ' );
QUERY1.SQL.Add('WHERE GMCO=''00013'' AND GMOBJ IN (''6250'',''6400'')');
query1.SQL.add(' AND GMSUB=''020201''');
QUERY1.Open;
for i:=0 to Query1.FieldCount-1 do        
  memo1.lines.add( Format('Campo %d: %s',[i, Query1.Fields[i].FieldName]));
LINEA:='AUX='+Query1.FieldByName('gmsub').AsString+'#'+          'NOM='+Query1.FieldByName('gmobj').AsString+'#';

y me sigue dando el error; el error me lo da en el campo GMSUB

[[oscarac]]

Puedes mostrar el error?
captura la pantalla y trata de adjuntarlo aqui
revisa bien la estructura de la tabla F0901
quiza el campo GMSUB no sea string