안녕하세요 고수님
이번에는 간단할 것 같은데 잘 안되네요
먼저 아래와 같이 테이블에 필터를 사용하여 필요한 것만 출력하게는 만들었지요
if (edit1.text ='') then
ShowMessage('관리번호를 입력 하세요')
else begin
Table1.Open;
SNfilter := 'SuperNo=''' + edit1.text +'''';
근데 테이블을 필터로 실행 된 후 다시 "전체보기" 버턴을 만들려고 하는데요
아래와 같이 해 보았지요..
방법 1. 테이블 닫고 열기
procedure TForm5.Button1Click(Sender: TObject);
begin
if Form5.ShowModal = mrNone then begin // 창이 안닫히게 할려고
Form1.Table2.Active := False;
Form1.Table2.Active := True;
End;
End;
방법 2. 테이블 필터 재 설정
procedure TForm5.Button1Click(Sender: TObject);
var
Vfilter : String;
begin
Form1.Table2.Open;
Vfilter := 'SuperNo='''; // 근데 필터를 원래 상태로 되돌리는 방법이 맞나요?
Form1.Table2.Filter :=Vfilter;
end;
end;
위와 같이 해 보았어요..
컴파일 하는데는 에러가 없는데 그 “전체보기” 버턴을 사용하면
에러가 나타나요..
“ Cannot Make a visible window modal “ 이렇게요..???????
이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고
고수님들의 고견을 듣고 싶습니다.
감기조심하시고 즐거운 날 되십시요..
잘 나올겁니닷...
아기코알라 wrote:
> 안녕하세요 고수님
> 이번에는 간단할 것 같은데 잘 안되네요
> 먼저 아래와 같이 테이블에 필터를 사용하여 필요한 것만 출력하게는 만들었지요
> if (edit1.text ='') then
> ShowMessage('관리번호를 입력 하세요')
> else begin
> Table1.Open;
> SNfilter := 'SuperNo=''' + edit1.text +'''';
>
> 근데 테이블을 필터로 실행 된 후 다시 "전체보기" 버턴을 만들려고 하는데요
> 아래와 같이 해 보았지요..
>
> 방법 1. 테이블 닫고 열기
> procedure TForm5.Button1Click(Sender: TObject);
> begin
> if Form5.ShowModal = mrNone then begin // 창이 안닫히게 할려고
> Form1.Table2.Active := False;
> Form1.Table2.Active := True;
> End;
> End;
>
> 방법 2. 테이블 필터 재 설정
> procedure TForm5.Button1Click(Sender: TObject);
> var
> Vfilter : String;
> begin
> Form1.Table2.Open;
> Vfilter := 'SuperNo='''; // 근데 필터를 원래 상태로 되돌리는 방법이 맞나요?
> Form1.Table2.Filter :=Vfilter;
> end;
> end;
>
> 위와 같이 해 보았어요..
> 컴파일 하는데는 에러가 없는데 그 “전체보기” 버턴을 사용하면
> 에러가 나타나요..
> “ Cannot Make a visible window modal “ 이렇게요..???????
>
> 이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고
> 고수님들의 고견을 듣고 싶습니다.
> 감기조심하시고 즐거운 날 되십시요..
>