우선 아래의 소스는 내가직접만든것입니다.
테이블이 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;