Скачать: CL | DM;

Клонирование связанных таблиц в Access`e!   Найти похожие ветки 

← →
st0rm ©   (2005-07-07 16:11) [0]

Может кто сталкивался с такой проблемой.

---

← →
zx ©   (2005-07-07 16:36) [1]

а за чем это??
создавай таблицы заливай данные. какие проблемы?

---

← →
st0rm ©   (2005-07-07 16:56) [2]

Сидит оператор БД вносит данные, по 15-20 полей заполняет в ручную. И это только по одному объекту, а их очень много. Записи в принципе все одинаковы только в некоторых местах меняют.

Что типа:
procedure TfMain.Cloning(loDataSet : TADOTable);
var
 ssOldID, ssNewID: AnsiString;
 i: integer;
 ssValue: Variant;
begin
 if MessageBoxQuestionYesNo("Клонировать объект "+ loDataSet.FieldValues["Артикул"] +" ?") = ID_YES then
   begin
     ssOldID := fDM.ATtable1.FieldValues["ID"];

     fDM.ATtable1.Append;
     fDM.ATtable1.Post;

     ssNewID := fDM.ATtable1.FieldValues["ID"];

     for i := 1 to fDM.ATtable1.Fields.Count - 1 do
       begin
         ssValue := fDM.ATtable1.Lookup("ID", ssOldID, fDM.ATtable1.Fields[i].DisplayName);
         fDM.ATtable1.Edit;
         fDM.ATtable1.Fields[i].AsVariant := ssValue;
         fDM.ATtable1.Post;
       end;

     CopyingRecordsFromOneIDInAnother(fDM.ATtable2, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable3, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable4, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable5, ssOldID, ssNewID);
     CopyingRecordsFromOneIDInAnother(fDM.ATtable6, ssOldID, ssNewID);
   end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c