| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перенос полей [D6, access]

Ирина ©   (2005-07-14 12:02:00) 

Подскажите, пожалуйста, почему при переносе полей из одной DataSet в другую в DBGrid, кот. связана со вторым DataSet, высвечиваются данные только последнего перенесенного поля, другие-пустые.

  Вот код:

procedure TForm2.Button1Click(Sender: TObject);
var
aField:Variant;
i:integer;
begin
  aField:=VarArrayCreate([0,TblM.FieldCount-1],VarVariant);
  for i:=0 to 3 do        //там только 4 поля
  aField[i]:=TblM.fields[i].Value;
  with FrmMovTowar do
  begin
   TblUslForOrder.Edit;
   TblUslForOrder.Append;
   for i:=0 to 3 do
   TblUslForOrder.Fields[i].Value:=aField[i];
  end;
  form2.Close;
end;

---

Val   (2005-07-14 12:17:00) [1]

Мне кажется, также, лишним aField:Variant; - можно брать данные прямо из TblM.Fields[i].Value.
И, конечно, обратить внимание на [2] Johnmen ©   (14.07.05 12:12).

---

Johnmen   (2005-07-14 12:12:00) [2]

Рекомендую попробовать почитать буквари на тему работы с БД.

---

dolmat   (2005-07-14 12:10:00) [3]

TblUslForOrder.Edit; По-меему это лишнее

TblUslForOrder.Append;
  for i:=0 to 3 do
  TblUslForOrder.Fields[i].Value:=aField[i];

TblUslForOrder.post; где?

---

Наверх