Q&A

  • "테이블 필터관련 " 좀 봐주세요..
안녕하세요 고수님

이번에는 간단할 것 같은데 잘 안되네요

먼저 아래와 같이 테이블에 필터를 사용하여 필요한 것만 출력하게는 만들었지요

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 “ 이렇게요..???????



이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고

고수님들의 고견을 듣고 싶습니다.

감기조심하시고 즐거운 날 되십시요..



3  COMMENTS
  • Profile
    최은석 2000.12.05 02:32
    테이블의 filtered 프로퍼티를 false 로.......하시고 해보세요

    잘 나올겁니닷...





    아기코알라 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 “ 이렇게요..???????

    >

    > 이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고

    > 고수님들의 고견을 듣고 싶습니다.

    > 감기조심하시고 즐거운 날 되십시요..

    >

  • Profile
    방경주 2000.12.05 01:06
    table2.filterd := false;



    이방법을 함 써 보시지여....



    허접 잡변이었습니다요....^^;





    아기코알라 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 “ 이렇게요..???????

    >

    > 이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고

    > 고수님들의 고견을 듣고 싶습니다.

    > 감기조심하시고 즐거운 날 되십시요..

    >

  • Profile
    아기코알라 2000.12.05 20:55
    방경주,최은석님 감사드립니다.

    저에게 좋은 길을 가르쳐 주셨습니다. 정말 고맙습니다.



    Table2 는 필터가 필요할 때도 있고 또 Table 전체 보기를 위해서도 필요합니다.

    Table2의 Filtered를 False로 하고 Procedure를 구성했는데 전체보기 버턴을 사용하는데 아래와 같은 메세지가 나오네요.

    지금 저도 무지 고민하고 있는데 아직 답이 안나오네요. 아주 중요한 기능이라서 (프린트할때 필요하걸랑요..히히히)



    질문 : 이미 필터된 테이블을 필터를 사용해서 부분만 출력되는데 전체를 볼려고

    하면 방법이 없을까요?

    필터를 사용해야 한다면 어떻게 설정을 해줘야 하나요?



    답변 다시 한번 감사드리며 즐거운 하루 되세요..





    방경주 wrote:

    > table2.filterd := false;

    >

    > 이방법을 함 써 보시지여....

    >

    > 허접 잡변이었습니다요....^^;

    >

    >

    > 아기코알라 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 “ 이렇게요..???????

    > >

    > > 이럴때는 우찌 해야 하는지 통 알 수가 없네요. 다른 방법이 생각나지도 않고

    > > 고수님들의 고견을 듣고 싶습니다.

    > > 감기조심하시고 즐거운 날 되십시요..

    > >