조건 검색은 가능한데 스트링그리드에 뿌리는 걸 잘 모르겠군여..

계속 고민하다 소스 올립니다..제발 좀 알려주세요..



begin

i:= 1;

for j := 1 to XL.Workbooks[i].Sheets.Count do

begin

k:= 0;

while (Length(XL.Workbooks[i].Sheets[j].cells[k+4,1].Value))>0 do

//4번째행부터 읽음

begin



aa:= XL.Workbooks[i].Sheets[j].cells[k+4,1].Value;

with Qry do

begin

Close;

SQL.Clear;

SQL.Add('SELECT pcode from 테이블 ');

SQL.Add('where pcode = :aa ');

SQL.Add('Order By pcode ');



ParamByName('aa').Asstring := aa;



open;

if Trim(FieldByName('pcode').AsString) = '' then

StringGrid1Click(Sender);

-------------->

--------------->이 부분이여...

end;

inc(k);

end;

end;

end;



MessageDlg('The End',mtInformation,[mbOK],0);

XL.DisplayAlerts := False;

XL.WorkBooks.close;

XL.Quit;

end;