Q&A

  • DB질문)콤보박스에다 테이블에서 읽어온값을 입력하려는데.
콤보박스에다가 테이블에서 읽어온 코드값을 입력하려는데여..

같은것은 넣지 않으려거든여.. 어떻하면 좋을까여??

일단은 이렇게 해서 처음 폼이 셋팅될때는 입력이 되는데여..흐음..나중에데이타가

갱신이 되었을때가 문제로군요...밑의 것이 저의 소스입니다.

꼭좀 답변 부탁드려여..



//각 코드들을 얻어온다.

With SelectQuery do begin

Close;

Sql.Clear;

Sql.Add('select * from rtu_tbl');

Open;

First;

ComboBox2.Items.Add('None');

ComboBox3.Items.Add('None');

While not EOF do begin

ComboBox2.Items.Add(FieldByName('managezone').AsString);

ComboBox3.Items.Add(FieldByName('setupzone').AsString);

Next

end;

Combobox2.ItemIndex := 0;

ComboBox3.ItemIndex := 0;

end;

1  COMMENTS
  • Profile
    Lee 2001.06.19 02:35
    질문의 요지가 없어서 2가지로 생각해본건데요..

    일단은 콤보박스를 초기화 하지 않고 있네요.

    먼저 콤보박스를 초기화 하시구요.

    2번째는 만약 동일한 data가 존재할 경우

    sql문장에서 가려주는게 속도가 빨를것 같네요.



    Combobox2.Clear;

    Combobox3.Clear;

    With SelectQuery do begin

    Close;

    Sql.Clear;

    Sql.Add('select distinct managezone from rtu_tbl');

    Open;

    First;

    ComboBox2.Items.Add('None');

    ComboBox3.Items.Add('None');

    While not EOF do begin

    ComboBox2.Items.Add(FieldByName('managezone').AsString);

    Next

    end;

    Combobox2.ItemIndex := 0;

    end;



    With SelectQuery do begin

    Close;

    Sql.Clear;

    Sql.Add('select distinct setupzone from rtu_tbl');

    Open;

    First;

    ComboBox2.Items.Add('None');

    ComboBox3.Items.Add('None');

    While not EOF do begin

    ComboBox3.Items.Add(FieldByName('setupzone').AsString);

    Next

    end;

    ComboBox3.ItemIndex := 0;

    end;





    aparadin wrote:

    > 콤보박스에다가 테이블에서 읽어온 코드값을 입력하려는데여..

    > 같은것은 넣지 않으려거든여.. 어떻하면 좋을까여??

    > 일단은 이렇게 해서 처음 폼이 셋팅될때는 입력이 되는데여..흐음..나중에데이타가

    > 갱신이 되었을때가 문제로군요...밑의 것이 저의 소스입니다.

    > 꼭좀 답변 부탁드려여..

    >

    > //각 코드들을 얻어온다.

    > With SelectQuery do begin

    > Close;

    > Sql.Clear;

    > Sql.Add('select * from rtu_tbl');

    > Open;

    > First;

    > ComboBox2.Items.Add('None');

    > ComboBox3.Items.Add('None');

    > While not EOF do begin

    > ComboBox2.Items.Add(FieldByName('managezone').AsString);

    > ComboBox3.Items.Add(FieldByName('setupzone').AsString);

    > Next

    > end;

    > Combobox2.ItemIndex := 0;

    > ComboBox3.ItemIndex := 0;

    > end;