сумма в datarid

[050]

Добрый день!
А можно ли как то подсчитать сумму столбца в Datagrid?
Спасибо.

[Konst_One]

можно, возьми и посчитай

[050]

хорошо...спасибо...а как?
поясню вопрос:
на форме есть adoDC и datagrid
как при заполнении recordset
данные определенного столбца суммировать и передать переменной?

[Konst_One]

Код: Выделить всё

Dim SUM as Currency
...
do while not rs.EOF
SUM=SUM+rs.Fields("Field1").Value
rs.MoveNext
loop
'Field1 money type
debug.Print SUM

[CORBA]

Можно также с помощью запроса подсчитать

Код: Выделить всё

  Sum([Имя_Столбца])

[CORBA]

Можно также с помощью запроса подсчитать

Код: Выделить всё

  Sum([Имя_Столбца])

[050]

Konst_One
Работает!
Спасибо..
Только вот, как вернуть маркер рекордсета назад на первую позицию,
потому как цикл выполняется один раз..

[050]

аа нашел...
вот как:

Dim SUM As Currency
Dim i As Integer
i = gridData.Bookmark
Do While Not adoData.Recordset.EOF
SUM = SUM + adoData.Recordset.Fields("sumAll").Value
adoData.Recordset.MoveNext
Loop
sum.Text = SUM
gridData.Bookmark = i

Это правильный вариант?

[050]

CORBA
а вот если SQL запросом - это надо в одной инструкции
подсчитать, потом записать в таблицу, а потом снова считать
и передать переменной или как?

[CORBA]

Только вот, как вернуть маркер рекордсета назад на первую позицию

А разве у adodc.recordset метод movefirst отсутствует?

Насчёт как через запрос думаю что можно динамически создать recordset с помощью него отправить след. запрос

Код: Выделить всё

SELECT SUM(Имя_столбца) as SumAll FROM Имя_таблицы

ну а дальше считываем в переменую аналогично
Sum=rs.Recordset.Fields("SumAll").Value