ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как получить сумму в Гриде
3 сообщений из 3, страница 1 из 1
Как получить сумму в Гриде
    #34803737
BSnake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BSnake
Гость
VFP - 9 версия
Существует форма на которой расположены два грида на основе двух связанных таблиц
в первой таблице информация по людям во второй таблице цифры.
подскажите как суммироваться все отобранные числа во второй таблице для конкретного человека из первой.

Попробовал следующую конструкцию
LOCAL ARRAY tt(1,1)
SELECT SUM(а) FROM P_B INNER JOIN RAB ON P_b.t = Rab.t INTO ARRAY tt
ThisForm.TxtSum.Value = tt(1,1)
ThisForm.TxtSum.Refresh()

данная конструкция считает всю сумму по полю а необходимо только по значениям отображаемым во втором гриде.

Связь таблиц через set realation.

Если есть файлики с примерами буду очень благодарен.
Заранее всем спасибо.
...
Рейтинг: 0 / 0
17.09.2007, 05:56
| Ответить | Цитировать | Написать  
Как получить сумму в Гриде
    #34803748
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СА
Участник
Есть разные подходы. Твой
Код: plaintext
1.
2.
3.
4.
LOCAL m.t
m.t = Rab.t
SELECT SUM(а) FROM P_B WHERE P_b.t = m.t INTO CURSOR Ct
ThisForm.TxtSum.Value = Ct.a
USE IN Ct
Причем это надо оформить в виде метода формы, т.к. при переходе на другую запись таблицы Rab, придется это снова рассчитать. Другой. Можно сделать параметризированный Local View и потом находить сумму из этого LV, аналогично через метод формы.
...
Рейтинг: 0 / 0
17.09.2007, 06:49
| Ответить | Цитировать | Написать  
Как получить сумму в Гриде
    #34804741
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MiklS
Гость
Можно проще и быстрее....
В методе AfteRowChange первой таблицы
CALCULATE SUM(a) FOR P_b.t = Rab.t TO nSum IN "Rab"
GO TOP IN "Rab"
ThisForm.TxtSum.Value=nSum
...
Рейтинг: 0 / 0
17.09.2007, 13:12
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как получить сумму в Гриде
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1588762]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 92ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 231ms
total:  429ms
созд. / загр.: 429ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]