안녕하세요.

현재 테이블의 OnFilterRecord를 이용해서 필터링을 하는데요,

프로그램 시작시 조건에 맞는 레코드가 하나도 존재하지 않을 경우 블루 스크린이 뜨고 프로그램이 종료됩니다.

그상태에서 아무키나 치고 윈도우 화면으로 돌아와서,

프로그램을 다시 실행하면 그리드에 아무 레코드도 없이 정상 실행됩니다(조건에 맞는 레코드가 존재하지 않으니깐..).

왜 이러는건지 도무지 감이 안 잡히네요.

고수님들의 답변 부탁 드리겠습니다.



procedure TForm1.Table1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

begin

Accept := (CompareStr(FormatDateTime('yyyy-mm-dd', Now-1),

Table1.FieldByName('ProdDate').AsString) = 0)

or (CompareStr(FormatDateTime('yyyy-mm-dd', Now),

Table1.FieldByName('ProdDate').AsString) = 0);

or (Table1.FieldByName('ProdResult').AsInteger = 0)

or (Table1.FieldByName('ProdResult').AsInteger = 2);

end;