with ADOQuery1 do begin

//while not ADOQuery1.Eof do begin

First;

while not Eof do begin

ProgressBar1.max := ADOQuery1.recordcount;

p_antext.Caption := 'Data를 정리하고 있습니다.!!';

Application.ProcessMessages;

ProgressBar1.Position := ProgressBar1.Position + sizeof(1);

prnm := '';

prnm := Trim(ADOQuery1.Fields[1].DisplayText);

showmessage(prnm);

if prnm = '' then ADOQuery1.Next;



pno := pos('합계',prnm);

if pno = 0 then ADOQuery1.Next;



고수님들 위에서 변수 prnm이 공란일경우도 있고

'합계'라는 문자가 없을수도 있거든요 근데 Next가 안먹어요

합계라는 문자가 들어 있으면 DB에 입력 할려고 하는데요....



안되는것인가요?

답변 부탁드립니다. 감사합니다.