Перенос полей

← →
Ирина (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]

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

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

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