콤보박스에다가 테이블에서 읽어온 코드값을 입력하려는데여..
같은것은 넣지 않으려거든여.. 어떻하면 좋을까여??
일단은 이렇게 해서 처음 폼이 셋팅될때는 입력이 되는데여..흐음..나중에데이타가
갱신이 되었을때가 문제로군요...밑의 것이 저의 소스입니다.
꼭좀 답변 부탁드려여..
//각 코드들을 얻어온다.
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;
일단은 콤보박스를 초기화 하지 않고 있네요.
먼저 콤보박스를 초기화 하시구요.
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;