검색하는 부분이 이중검색이라 할수 있는데여...
그러니까 검색버튼을 누를시...
:
:
var cnt;
begin
Table2.Filered := True;
if Rbtn1.Checked = True then
Table2.Filter := 'Addr1 = '+ Edit1.text+' and Prddate = NULL'
else if Rbtn2.Checked = True then
Table2.Filter := 'Rslername = '+Edit2.text+' and Prddate = NULL'
else if Rbtn3.Checked = True then
Table2.Filter := 'Cnct <> 미보유 and Prddate = NULL '
else if Rbtn4.Checked = True then
Table2.Filter := 'Cnct = 미보유 and Prddate = NULL ';
cnt := Table2.Recordcount;
Label1.Text := '검색하신 레코드는 총'+inttostr(cnt)+'개 입니다. ';
Table1.Filtered := False;
end;
대략 이렇게 되는데요...
여기서 rbtn4를 체크했을때 에러메세지가 ... field '미보유' not found... 라고 나오거든요...
뭐가 문제가 되는지 모르겠어요...
Filter에 들어가는 게 하나일때는 검색이 잘 되었답니다.
이답을 언제 들을수 있을지 꼭 일러주세요...
> 검색하는 부분이 이중검색이라 할수 있는데여...
> 그러니까 검색버튼을 누를시...
>
> :
> :
> var cnt;
> begin
> Table2.Filered := True;
> if Rbtn1.Checked = True then
> Table2.Filter := 'Addr1 = '+ Edit1.text+' and Prddate = NULL'
> else if Rbtn2.Checked = True then
> Table2.Filter := 'Rslername = '+Edit2.text+' and Prddate = NULL'
> else if Rbtn3.Checked = True then
> Table2.Filter := 'Cnct <> 미보유 and Prddate = NULL '
> else if Rbtn4.Checked = True then
> Table2.Filter := 'Cnct = 미보유 and Prddate = NULL ';
>
> cnt := Table2.Recordcount;
> Label1.Text := '검색하신 레코드는 총'+inttostr(cnt)+'개 입니다. ';
>
> Table1.Filtered := False;
>
> end;
>
> 대략 이렇게 되는데요...
> 여기서 rbtn4를 체크했을때 에러메세지가 ... field '미보유' not found... 라고 나오거든요...
> 뭐가 문제가 되는지 모르겠어요...
> Filter에 들어가는 게 하나일때는 검색이 잘 되었답니다.
>
> 이답을 언제 들을수 있을지 꼭 일러주세요...
>
안녕하세요.
else if Rbtn3.Checked = True then
Table2.Filter := 'Cnct <> 미보유 and Prddate = NULL '
else if Rbtn4.Checked = True then
Table2.Filter := 'Cnct = 미보유 and Prddate = NULL ';
이부분에 약간 문제가 있는것 같네요.
미보유 라는 단어가 문자열일 경우에는 따옴표를 해주어야 하는데 그렇게
하지 않아서 미보유라는 문자열을 Field Name으로 인식한것 같군요.
else if Rbtn3.Checked = True then
Table2.Filter := 'Cnct <> ''미보유'' and Prddate = NULL '
else if Rbtn4.Checked = True then
Table2.Filter := 'Cnct = ''미보유'' and Prddate = NULL ';
이런식으로 바꾸어보시고 다시 한번 해보세염~
도움이 되시길...