안녕하세여..

그럴경우 Setkey와 GotoKey를 활용해보세염..

제가 TTable을 거의 안써서리 기억이 희미해서 델파이2 언리쉬드 책자에서 인용함다.^^

Setkey함수에 대해선 델파이핼프를 참고하세용..



procedure Search;

begin

with Table1 do

begin

Open;

Setkey;

Fields[0].AsString := Edit1.Text;

if Gotokey then showmessage('이미 입력된자료');

..

..

end;

end;







짝돌이 wrote:

> table에 있는 자료를 체크할려고 하는데 잘 되지 않고

> 에러가 뜨거나 아니면 체크가 되질 않네요..

>

> 고수님들 방법좀 알력주세요

> 아래의 부분을 정정해주시거나 새로운 방법을 갈켜주시면 감사에,, 감사하겠습니다.

>

> var

> ComboT : String;

> EditT : String;

> setT : integer;

>

> function datechk : boolean;

> begin

> billtable.open;

>

> with billtable do begin

> if ((ComboT = [FieldByName('Group_code').AsString]) and

> (EditT = [FieldByName('billing_ym').AsString])) then begin

> showmessage('이미 입력된자료');

> setT := 1;

> exit;

> end;

> end;

>

> billtable.close;

> result := true;

> end;