디비그리드에서 멀티셀렉트한것을 DB에 추가하는것인데

DBGrid에서 한개만선택해서 추가를하면 이상없이 추가가 되는데

여러개를 추가하면 항상 마지막레코드는 추가가되지를 않습니다.

아시는분은 답변부탁드리겠습니다.



Procedure Multiselect_Copy(TableName:TTable);

var

x: word; TempBookmark: TBookMark;

begin



if not (TableName.State in [dsEdit, dsInsert]) then TableName.edit;

with Form1.DBgrid1.SelectedRows do

for x:= 0 to Count-1 do

begin

Form1.DBGrid1.Datasource.Dataset.GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[x]));



//////////////////////////////////////////////////////////////////////

TableName.append;

TableName.fieldbyname('Num').asString := Form1.DBGrid1.Datasource.Dataset.Fields.fieldbyname('Num').asString;

.

.

.

TableName.fieldbyname('input_Date').asString := Form1.DBGrid1.Datasource.Dataset.Fields.fieldbyname('input_Date').asString;

TableName.post;





end;

end;