X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vavavol, спасибо
Уважаемые знатоки, какой код, по Вашему мнению, правильный, а если и тот, и тот правильный, то какой наиболее прапвильный, где могут быть зарыты грабли?
Код1
for i := 0 to FromGrid.Controller.SelectedRecordCount-1 do begin
ToGrid.DataSource.DataSet.Append;
for f := 0 to ToGrid.DataSource.DataSet.FieldCount-1 do begin
ToGrid.DataSource.DataSet.Fields[f].Value :=
FromGrid.Controller.SelectedRecords[i].Values[FromGrid.GetColumnByFieldName(ToGrid.DataSource.DataSet.fields[f].name).index];
end;
ToGrid.DataSource.DataSet.post;
end;
Код2
for i:=0 to FromGrid.DataController.GetSelectedCount-1 do
begin
ARowIndex := FromGrid.DataController.GetSelectedRowIndex(i);
ARowInfo := FromGrid.DataController.GetRowInfo(ARowIndex);
id := FromGrid.DataController.GetRecordId(ARowInfo.RecordIndex);
if FromGrid.DataController.DataSet.Locate('ID',id,[]) then begin
ToGrid.DataSource.DataSet.Append;
for f := 0 to ToGrid.DataSource.DataSet.FieldCount-1 do
ToGrid.DataSource.DataSet.Fields[f].Value :=
FromGrid.DataController.DataSet.FieldByName(ToGrid.DataSource.DataSet.Fields[f].name).AsVariant;
ToGrid.DataSource.DataSet.post;
end;
end;//for i:=0 to FromGrid.DataController.GetSelectedCount-1 do
Добавлено:
vavavol, в этой строке вываливается исключение
id := FromGrid.DataController.GetRecordId(ARowInfo.RecordIndex);
что невозможно конвертировать Variant(null) into Integer
Добавлено:
Var
id : Variant;
id := FromGrid.DataController.GetRecordId(ARowInfo.RecordIndex);
во время выполнения дебагер показывает
id = null
----------
/не мы такие, жизнь такая/ |
|
Всего записей: 3253 | Зарегистр. 24-11-2005 | Отправлено: 11:47 25-09-2006 | Исправлено: X11, 12:37 25-09-2006 |
|
