Q&A

  • (긴급)질문임돠....(테이블)
우선 아래의 소스는 내가직접만든것입니다.

테이블이 2개가 있는데

첫번째테이블(TWonsu)은 item,base가 필요한데 여기에 대한 데이터는 두번째테이블(TWitem)에서 가져옵니다.

그런데 처음 데이터는 가져오는데 총 32개의 레코드가 있는데 한개밖에 불러오지를 않습니다.

---------->어느 부분이 잘못되었는지요...도와주세요..(참고로 witem은 기본키입니다.)

에러창의 내용은 key violation입니다....

procedure TFmain.wonsuShow(Sender: TObject);

var

witem, wbase : string;

i:integer;

begin

fdm.Twonsu.append;

witem:= fdm.TwitemWitem.AsString ;

wbase:= fdm.TwitemWbase.AsString ;



for i:=0 to fdm.Twitem.RecordCount -1 do

begin

fdm.TwonsuWitem.AsString := witem;

fdm.TwonsuWbase.AsString := wbase;

fdm.Twonsu.post;

fdm.Twitem.Next;

end;



end;

0  COMMENTS