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

Перенос полей   Найти похожие ветки 

← →
Ирина   (2005-07-14 12:02) [0]

Подскажите, пожалуйста, почему при переносе полей из одной 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;

---

← →
dolmat   (2005-07-14 12:10) [1]

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

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

TblUslForOrder.post; где?

---

← →
Johnmen ©   (2005-07-14 12:12) [2]

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

---

← →
Val ©   (2005-07-14 12:17) [3]

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

---

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

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



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