디비에 Q_flag(모의고사 회구분)라는 것을 두고 이게 1,2,3...증가할때 콤보박스로 불러와서 그 구분코드의 문제를 불러오려고 합니다...

근데 콤보박스에 추가는 되는데...항상 똑같은 문제만 불러와져서요...

이 소스를 어떻게 해야 하나요....

보시고 지적좀 해주세요.....뭐가 잘못된건지....

부탁드립니다...

///소스

CB_level.Items.Add('1종');

CB_level.Items.Add('2종');



Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add('select Q_flag from test');

Query1.Open;

if Query1.RecordCount <> 0 then begin

Query1.First;

while Query1.Eof = False do begin

if chk_count <> Query1.fieldByName('Q_flag').AsString then begin

chk_count := Query1.fieldByName('Q_flag').AsString;

CB_pageset.Items.Add(Query1.fieldByName('Q_flag').AsString);

end;







Query1.Next;

end;

CB_level.ItemIndex := 0;

CB_pageset.ItemIndex := 0;

quiz_count := 1;

end;