Текущий архив: 2003.05.26;
Скачать: CL | DM;
Вниз
СВЯЗЫВАНИЕ ДВУХ ТАБЛИЦ PARADOX Найти похожие ветки
← →
prof © (2003-05-05 10:14) [0]Помогите. Нужно взяь данные из 10 строк (в каждой строке только одна ячейка) таблици1 и суммировав их вставить в одну из строк таблици2
← →
Соловьев © (2003-05-05 10:39) [1]
with Table1 do
begin
Active := true;
First;
//Должен быть подключен индекс, который вынесет эти 10 строк вперед
Sum := 0;
Count := 0;
repeat
Inc(Count);
Sum := Sum + FieldByName("Sumfield").AsInteger;
Next;
until Count<=10;
end;
end;
With Table2 do
begin
Active := true;
Insert;
FieldByName("Sum").AsInteger := Sum;
Post;
end;
Но лучше что-бы ты с 10 как-то поределился, так как такой подход не верен и чреват... Лучше когда есть условие
← →
prof © (2003-05-05 11:40) [2]Соловьев
Sorry, но я с базами в первый раз работаю так-что пожалуйста обьясните "//Должен быть подключен индекс, который вынесет эти 10 строк вперед"
Я взял упрощенную модель:
TAB1 TAb2
Sumfield Sum
22 490
222
123
123
так должно быть , но получается только
TAB2
Sum
22
,а если имеется в виду первичный(вторичный) индекс ,то с ним вообще не работает.
← →
Соловьев © (2003-05-05 11:47) [3]тебе все записи нужно просумировать? или только часть удовлетворяющую условиям?
← →
prof © (2003-05-05 11:53) [4]все
← →
Соловьев © (2003-05-05 11:55) [5]
with Table1 do
begin
Active := true;
First;
Sum := 0;
while no Eof do
begin
Sum := Sum + FieldByName("Sumfield").AsInteger;
Next;
end;
end;
With Table2 do
begin
Active := true;
Insert;
FieldByName("Sum").AsInteger := Sum;
Post;
end;
← →
prof © (2003-05-05 12:01) [6]все работает спасибо за подддержку
Страницы: 1 вся ветка
Текущий архив: 2003.05.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
