|
Вопрос # 6 340/ вопрос открыт / |
|
Здравствуйте, эксперты! Имеется две таблицы ClientDataSet T1 и FIOT в Т1 записывается ключ таблицы FIOT но у меня он только просчитывает
только текущее положение таблицы FIOT как сделать чтоб просчиталось
по всему полю FIOT. Заранее благодарен.
Приложение: Переключить в обычный режим- procedure TForm1.Button7Click(Sender: TObject);
- Var summ: integer;
- i : integer;
- begin
- t1.Filter:= 'FIOID='+ fiot.FieldByName('ID').AsString;
- t1.Filtered:=true;
- summ:=0;
- while not t1.Eof do
- begin
- summ:=summ+ t1.FieldByName('sob').asinteger;
- ListBox1.Items.Add(fiot.FieldByName('Fio').AsString+ ': '+ IntToStr(summ));
- t1.Next;
- end;
- end;
- end.
 |
Вопрос задал: ZMihail (статус: Посетитель)
Вопрос отправлен: 22 декабря 2012, 09:06
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 8; последнее сообщение — 22 декабря 2012, 13:13; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 22 декабря 2012, 09:24 [#1]:
Может, перепишешь вопрос с использованием знаков препинания? А то я нихрена не понял.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ZMihail (статус: Посетитель), 22 декабря 2012, 10:00 [#2]:
Имеется две таблицы: ClientDataSet ( T1 и FIOT), в таблицу (Т1) записывается ключ таблицы (FIOT). Таблица (T1) содержит по ключу(FIOID) множество записей таблицы (FIOT) по ключу ('ID'). Мне нужно, чтобы записи таблицы (FIOT) суммировались
согласно ключам таблицы (Т1). На схеме суммируется только первая запись таблицы (FIOT). как мне сделать, чтобы
этот процесс дошёл до конца таблицы (FIO). И записал всё ListBox.
|
|
|
min@y™ (статус: Доктор наук), 22 декабря 2012, 10:13 [#3]:
Цитата (ZMihail):
как мне сделать, чтобы этот процесс дошёл до конца таблицы (FIO)
Вероятно, внутри цикла while not t1.Eof do нужен вложенный цикл типа while not fiot.Eof do?
Или я чего-то не догоняю ранним утром после отмечания конца света?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ZMihail (статус: Посетитель), 22 декабря 2012, 10:32 [#4]:
Таким образом
procedure TForm1.Button7Click(Sender: TObject);
Var summ: integer;
i : integer;
begin
t1.Filter:= 'FIOID='+ fiot.FieldByName('ID').AsString;
t1.Filtered:=true;
summ:=0;
while not t1.Eof do
begin
t1.Next;
while not fiot.Eof do
Begin
summ:=summ+ t1.FieldByName('sob').asinteger;
ListBox1.Items.Add(fiot.FieldByName('Fio').AsString+ ': '+ IntToStr(summ));
fiot.Next;
end;
end;
end;
|
|
Мережников Андрей (статус: Абитуриент), 22 декабря 2012, 11:25 [#5]:
вложенный цикл по fiot зачем, если суммировать надо по t1?
Какая СУБД? Может проще все написать одним SQL-запросом?
|
|
|
ZMihail (статус: Посетитель), 22 декабря 2012, 11:32 [#6]:
эти таблицы ClientDataSet с SQL не работают
|
|
|
Мережников Андрей (статус: Абитуриент), 22 декабря 2012, 11:39 [#7]:
База, к которой присоединены ClentDataSet на чем?
|
|
|
ZMihail (статус: Посетитель), 22 декабря 2012, 13:13 [#8]:
Они работают с библиотекой MIDAS.dll. Соединяются с
собой (главная-подчинённая). Я так думаю, что каждая таблица представляется как БД. А общей БД у них нет.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
