안냥하세요..벌써 주말이네요..



후후..남철님 소스 봤는데요..



처음엔 Edit box에 뿌려집니다..



그리고 두번째 실행부터는 안 보이구요..당연합니다.



왜냐면요..처음엔 쿼리에 있는 값중에 G도,M도, S도 있지만요



Query1.Filter :='AGU ='''+ 'S' + ''''; 로 한번 걸러 내구나면



그담부터는 쿼리에 S에 해당하는 것 바께는 안 들어 있거든요..



Query1.Filtered := False; <--필터 걸린거 없에 주구요

While not Query1.Eof do

begin

if Query1.FieldByName('Agu').AsString = 'G' then

iGname := igname + Query1.FieldByName('Aname').AsString

Else if Query1.FieldByName('Agu').AsString = 'M' then

iMname := imname + Query1.FieldByName('Aname').AsString;

Query1.Next;

end;

Edit1.Text := iGname;

Edit2.Text := iMname;



iGname := '';

iMname := '';



Query1.Filtered := True; <- 필터 적용할꺼라구 선언하는겁니다..

Query1.Filter :='AGU ='''+ 'S' + '''';



하시면 두번째 실행때두 Edit box에 값이 나오구요 필터두 되구요..



할껍니다...도움이 되셔씀 하네요..그럼 즐팅하세요..



행복하세요..*^^*

===================================================================

황남철 wrote:

> While not Query1.Eof do

> begin

> if Query1.FieldByName('Agu').AsString = 'G' then

> iGname := igname + Query1.FieldByName('Aname').AsString

> Else if Query1.FieldByName('Agu').AsString = 'M' then

> iMname := imname + Query1.FieldByName('Aname').AsString;

> Query1.Next;

> end;

> Edit1.Text := iGname; //edit박스에 값이 못들어 가는데 이해가 않돼요

> Edit2.Text := iMname; 밑에 필터를 없애면 돼는데 필터가 있어도

> 제생각에 edit에값을 저장하고 다시 Query된결과를

> iGname := ''; 필터로 걸러내고 아닌가요

> iMname := '';

> Query1.Filter :='AGU ='''+ 'S' + '''';