Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Нужно создать таблицу dbf   Найти похожие ветки 

← →
LeSS   (2003-09-04 16:41) [0]

Нужно создать таблицу dbf. Структура - поля одной таблицы плюс поля другой таблицы. Т.е. "склеть" две dbf и записать на диск.
Подскажите как лучше это сделать.
пробывал вот так:
i:= tbEtalon.FieldDefs.Count;

with tbResult do
begin
Active := False;
TableType := ttDefault;
TableName := "Result.dbf";
end;

for j:= 0 to (i-1) do
begin
with tbResult.FieldDefs do begin
with AddFieldDef do begin
Name:=tbEtalon.FieldDefs.Items[j].Name;
DataType :=tbEtalon.FieldDefs.Items[j].DataType;
Size := tbEtalon.FieldDefs.Items[j].Size;
Required := tbEtalon.FieldDefs.Items[j].Required;
end;
end;
end;

i:=tbwork.FieldDefs.Count ;

for j:= 0 to (i-1) do
begin
with tbResult.FieldDefs do begin
with AddFieldDef do begin
Name:=tbWork.FieldDefs.Items[j].Name+"_work";
DataType :=tbWork.FieldDefs.Items[j].DataType;// Size := tbWork.FieldDefs.Items[j].Size;
Required := tbWork.FieldDefs.Items[j].Required;
end;
end;
end;

with tbResult.FieldDefs.AddFieldDef do begin
Name:="accuracy";
DataType :=ftInteger;
Required := TRUE;
end;

tbResult.CreateTable;

но dbf получился с поломанной шапкой(

заранее спасибо

---

← →
Reindeer Moss Eater ©   (2003-09-04 16:48) [1]

Query1 + "Select A.*,B.* from Table1 A, Table2 B where 0=1"
Table1.BatchMove(Query1,batCopy);

---

← →
LeSS   (2003-09-04 16:57) [2]

о! спасибо

---

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

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c