예) Table1.에 레코드가 30개가 있다면
12번째 줄에 레코드 2개를 강제로 INSERT 하려고 합니다.
procedure TTongjangFm.TjinsertExecute(Sender: TObject);
begin
Table1.MoveBy(12);
Table1.insert;
Table1.FieldByName('Section').AsString := '24';
Table1.MoveBy(13);
Table1.insert;
Table1.FieldByName('Section').AsString := '24';
end;
으로 넣었는데 12번째로 안들어가고 맨 마지막에 두줄이 추가 됩니다.
정확히 12,13번째로 넝는방법이 없을까요?
어떻게 해야되는지 궁금합니다. 고수님의 한 수 부탁헙니다.
우선
table1.first를 해주어야할것 같습니다.
moveby는 제가 알기로는 기준점에서 moveby(몇칸) 이거든요.
그러니가...12번째에 입력하라고 했을때...기준은 첨부터 12번째이겠죠?
먼저 table1.first를 해야할것 같습니다. 우연히 첫번째 레코드에 위치해있다면 모를까...
그러므로 그다음 moveby(13)도 현재 기준에서 13번재가 되니까..의도하신 위치가 안될것 같은데요.
즉 만약 현재 레코드 위치가 첨이라는 가정하에..12번째에 입력된후 그 위치에서 13번째가 되니까..... 20여번째가 될것 같네요.
델파이가 없어서 정확한지는 확실치는 않지만...기억상으로는...
그럼..즐프하세요.
김명호 wrote:
> 예) Table1.에 레코드가 30개가 있다면
> 12번째 줄에 레코드 2개를 강제로 INSERT 하려고 합니다.
> procedure TTongjangFm.TjinsertExecute(Sender: TObject);
> begin
> Table1.MoveBy(12);
> Table1.insert;
> Table1.FieldByName('Section').AsString := '24';
> Table1.MoveBy(13);
> Table1.insert;
> Table1.FieldByName('Section').AsString := '24';
> end;
> 으로 넣었는데 12번째로 안들어가고 맨 마지막에 두줄이 추가 됩니다.
> 정확히 12,13번째로 넝는방법이 없을까요?
> 어떻게 해야되는지 궁금합니다. 고수님의 한 수 부탁헙니다.
>
>