Галактика в вопросах и ответах

Временная таблица не вмещает больше одной записи. Привидите работающий пример.

Table struct SMyTable
(KSNrec : comp,
D_Nakl : date,
N_Nakl : string[20],
T_Nakl: word,
N_PDRFROM: string,
CPDR_FR : comp,
G_FR : word,
N_PDRTO: string,
CPDR_TO : comp,
G_TO : word,
T_KO : double,
N_U: string[1])
with index (M1 = D_Nakl + T_Nakl);

interface R_G_G (,,sci1ESC);

show at (,,,41);


var
PRIZ_ZP : word;
F_NAME : string;
hndF : longint;
FIL_c : boolean;
M_DATE : string;
BR_NO_BR : word;
TD : string;
N_PODR : comp;
begdate, enddate : date;
PDRTO : string;
. . . . . . ..
И так далее

объявляю также но почему-то в таблицу не помещается больше одной записи, как ее заполнять?

Сначала объявляем структуру таблицы:

Table Struct tsootv
( cosh : string(3),
cosub : string(3),
filsh : string(3),
filsub : string(3),
filsub2 : string(3)
)
with index
(tsootv = filsh+filsub+filsub2
);
А потом в интерфейсе заполняем, например из .dbf - файла:
do
{
pcosh:=DBFGetFieldValue(hMyDbf,'cosh');
pcosub:=DBFGetFieldValue(hMyDbf,'cosub');
pfilsh:=DBFGetFieldValue(hMyDbf,'filsh');
pfilsub:=DBFGetFieldValue(hMyDbf,'filsub');
pfilsub2:=DBFGetFieldValue(hMyDbf,'filsub2');

Insert tsootv set cosh:=pcosh,
cosub:=pcosub,
filsh:=pfilsh,
filsub:=pfilsub;
filsub2:=pfilsub2;
Update current tsootv;
}while DBFGetNext(hMyDbf)=0;


Обязательно при добавлении записи в таблицу должны быть и insert и update. У меня такой вариант работает.

Мне как то тоже пришлось заполнять вр. таблицу
я использовал вот такую конструкцию.

modifier insert My_Tabl set sch= list[i], s_vx = Sal_d-Sal_k, ndate =d2;

и Все работает ver 5.84 и 5.85

Вообще заполнять лучче так
Do
{
Insert Current My_Tbl Set My_Tbl.fField1:=value1,My_Tbl.fField2:=value2,...My_Tbl.fFieldN:=value1;
}while DBFGetNext(hMyDbf)=0;

Одной строкой вставка всех полей без лишних операторов Update, Кстати - конструкция - стандартная.

И та и эта конструкция применяется. Можно даже поискать какая где. Я применяю конструкцию insert current когда однозначно что-то присваиваю, а insert - update current когда идет присвоение по условию.

еще несколько вопросов:
можно ли объявить временную таблицу в форме?
или как вывести итог перед выводом всех данных (исходников интерфейса нет, редактировать можно только форму)?
и можно ли из формы писать в текстовый файл?

1. для этого ты объявляешь ее в отдельном файле
в проекте
#include ddd.inc
компилить соотв. только випом
2.нужно накапливать данные во временную таблу(если с такой не получиться можешь юзать TEMPDESCR например, или другую из схемы user)
потом после вывода итогов выводишь данные из таблы.
3. самое примитивное logstrtofile(file,mes)