안녕하세요...개발자의 길의 들어선지 얼마안돼는...초보자 입니다..
오늘 하루종일 이걸로 고생했지만 ....정말 모르겠습니다...
여러 고수님들의 조언 부탁드립니다..꾸벅~~~~^^
코딩은 아래와 같구요...에러 발생 내용은
"name not unique in this context"입니다...
쿼리를 직접 날려보았는데..도 문제없었습니다...
query를 오픈할때 위와 같은 메세지가 뜨는지 모르겠습니다..
procedure TFormPostSearch.TabSetFirstClick(Sender: TObject);
var
aa, Ssql : string;
begin
aa := TabSetLast.Tabs[TabSetLast.TabIndex];
Ssql := 'SELECT DISTINCT SADDRESS1'
+ ' FROM CT_POST_NUM'
+ ' WHERE SADDRESS1 >= '''+ aa + ''' '
+ ' ORDER BY SADDRESS1';
with QueryOper, TabSetLast, ComboBoxFirst do
begin
Close ;
SQL.Clear ;
SQL.Add(Ssql);
Open;<--------------------- error 부분
Items.Clear ;
PostNumList.Clear ;
while not EOF do
begin
Items.Add(FieldByName('SADDRESS1').AsString);
Next ;
end ;
Close ;
end ;
BitBtnOk.Enabled := FALSE ;
ComboBoxMid.Clear ;
ComboBoxLast.Clear ;
PostNumList.Clear ;
StaticTextAddr.Caption:= ComboBoxFirst.Text + ' ' +
ComboBoxMid.Text + ' ' +
ComboBoxLast.Text;
end;