Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как получить сумму в Гриде / 3 сообщений из 3, страница 1 из 1
17.09.2007, 05:56
    #34803737
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, 06:49
    #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, 13:12
    #34804741
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
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как получить сумму в Гриде / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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