powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сумма
13 сообщений из 13, страница 1 из 1
Сумма
    #35889776
sergei 1234
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помагите я новичок!!!
У меня есть таблица sale.dbf и поле SUM.

-Мне надо сосчитать сумму по этому полю и присвоить этой сумме переменую!?

Типа такова
Код: plaintext
1.
I=select SUM(SUM) From sale
...
Рейтинг: 0 / 0
Сумма
    #35889831
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sergei 1234Помагите я новичок!!!
У меня есть таблица sale.dbf и поле SUM.

-Мне надо сосчитать сумму по этому полю и присвоить этой сумме переменую!?

Типа такова
Код: plaintext
1.
I=select SUM(SUM) From sale


select sale
sum sum to SumValue

Без SELECT SQL уже никак не умеете ?
...
Рейтинг: 0 / 0
Сумма
    #35889963
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CALCULATE eExpressionList
[Scope] [FOR lExpression1] [WHILE lExpression2]
[TO MemVarList | TO ARRAY ArrayName]
[NOOPTIMIZE]

Параметры:
eExpressionList может содержать сл.функции:
AVG(nExpression)
CNT( )
MAX(eExpression)
MIN(eExpression)
NPV(nExpression1, nExpression2 [, nExpression3])
STD(nExpression)
SUM(nExpression)
VAR(nExpression)
...
Рейтинг: 0 / 0
Сумма
    #35890014
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sergei 1234Помагите я новичок!!!
У меня есть таблица sale.dbf и поле SUM.

-Мне надо сосчитать сумму по этому полю и присвоить этой сумме переменую!?

Типа такова
Код: plaintext
1.
I=select SUM(SUM) From sale

Гдето так
Код: plaintext
1.
2.
Select SUM(SUM) AS sum From sale INTO CURSOR myCur
i=myCur.sum

или без курсора
Код: plaintext
1.
2.
Select SUM(SUM) From sale INTO ARRAY alMyArr
i=alMyArr( 1 , 1 )
...
Рейтинг: 0 / 0
Сумма
    #35890054
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BurnГдето так
Код: plaintext
1.
2.
Select SUM(SUM) AS sum From sale INTO CURSOR myCur
i=myCur.sum

или без курсора
Код: plaintext
1.
2.
Select SUM(SUM) From sale INTO ARRAY alMyArr
i=alMyArr( 1 , 1 )


Люди, вы чего !? "Зачем просто, если можно сложно" ? Команда SUM известна со времен DBase I. Вы сюда еще какой-нибудь класс прикрутите и пару API-функций.
...
Рейтинг: 0 / 0
Сумма
    #35890126
sergei 1234
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо!!!
У меня все поолучилось.
...
Рейтинг: 0 / 0
Сумма
    #35890677
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
rewareBurnГдето так
Код: plaintext
1.
2.
Select SUM(SUM) AS sum From sale INTO CURSOR myCur
i=myCur.sum

или без курсора
Код: plaintext
1.
2.
Select SUM(SUM) From sale INTO ARRAY alMyArr
i=alMyArr( 1 , 1 )


Люди, вы чего !? "Зачем просто, если можно сложно" ? Команда SUM известна со времен DBase I. Вы сюда еще какой-нибудь класс прикрутите и пару API-функций.
Да, команда SUM известна, но тогда вам при ее использовании следуют запоминать позицию записи и затем ее восстанавливать или, по крайне мере, объяснить человеку, что позиция записи "слетает".
С уважением, Алексей.
...
Рейтинг: 0 / 0
Сумма
    #35891884
sergei 1234
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да я заметил это а как сделать проще!?
...
Рейтинг: 0 / 0
Сумма
    #35892204
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LOCAL lnRecno, lnSum

SELECT sale
lnRecNo = RECNO()
SUM sum TO lnSum
GOTO IIF(lnRecNo > RECCOUNT(), 1, lnRecno)
...
Рейтинг: 0 / 0
Сумма
    #35892232
sergei 1234
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я зделал правда по другому:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
IF ! EOF()then
skip- 1 
ENDIF

SELECT Sale
DECLARE A( 1 )
Select SUM(SUM) FROM sale INTO ARRAY A
IF A<> 0  then
Thisform.text2.value=A( 1 , 1 )
Else
Thisform.text2.value="0.00"
endif

Объемно, но работает!!!
...
Рейтинг: 0 / 0
Сумма
    #35892237
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sergei 1234Да я заметил это а как сделать проще!?

Проще сначала взять любую книжку по dBase, Foxbase, Clipper, FoxPro и почитать первые 5 страниц. Там наверняка найдете азы о командах GO, SKIP и функциях RECNO(), RECCOUNT().
Не надо сразу сломя голову кидаться в SQL. Его изначально в СУБД вообще не было.
...
Рейтинг: 0 / 0
Сумма
    #35892259
sergei 1234
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Новичкам то же надо где то инфо брать!!!
А на первых 5 страницах написано лишь Введение!!!
...
Рейтинг: 0 / 0
Сумма
    #35892487
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sergei 1234Новичкам то же надо где то инфо брать!!!
А на первых 5 страницах написано лишь Введение!!!

Господи, гуглом не пользовались ? Ну, вот описание VFP8 (4.5 Мб) :

http://www.softportal.com/getsoft-4214-uchebnik-po-visual-foxpro-1.html
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Сумма
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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