Динамическое суммирование

[novichok_sis]

Добрый день! Не подскажите как сделать динамическое суммирование в Excel?
Dim i As Integer
i = 5
While dr.Read
ws.Cells(i, 2) = dr("name_r")
ws.Cells(i, 3) = dr("SUMMM")--Суммирование столбца???
ws.Cells(i, 4) = dr("SUMMB_WNDS")
ws.Cells(i, 5) = dr("SUMMB")
i = i + 1
End While
dr.Close()

[Ramzes]

что-то по куску кода, который предоставил автор топика не видно, как вопрос связан с ADO.Net, или автор пояснит или тему я перенесу, а автор получит предупреждение

[Thomas]

Ramzes
Приветствую.
Автор использует DataReader для чтения таблицы Excel

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

While dr.Read
...
dr.Close()


А вот с этим

автор пояснит

согласен на 153%

novichok_sis
Постарайтесь сформулировать свой вопрос более доходчиво и опишите более полно задачу и как пытаетесь ее решить.
Тогда вам смогут помочь.
А так извините, телепатия это не наш профиль.

[Ramzes]

Ramzes
Приветствую.
Автор использует DataReader для чтения таблицы Excel

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

While dr.Read
...
dr.Close()


я вот не согласен *DataReader не единственный класс у которого есть методы Read и Close

[Thomas]

Ramzes
Привествую
Возможно вы и правы.
Но меня еще подвигло к такому выводу, что reader обращается к полям таблицы

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

dr("name_r")
dr("SUMMM")
...


А какой reader может еще обращаться к полям таблицы?

[novichok_sis]

Вот полный код. Нужно подсчитать сумму значений 3-го столбца начиная с 5-ой строки?

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim app As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
wb = app.Workbooks.Add
ws = wb.Worksheets(1)
Dim commIP As New OracleCommand("select name_r, sum(minuts) SUMMM, round(sum(price_$/nds_$),2) SUMMB_WNDS, sum(price_$) SUMMB " & _
"from bis.table1 " & _
"where date>=:START_DATE " & _
"and date<=to_date(:END_DATE)+1 " & _
"group by name_r " & _
"order by name_r", conn)
commIP.CommandType = CommandType.Text


Dim ps, pe As New OracleClient.OracleParameter
ps.ParameterName = ":START_DATE"
ps.Direction = ParameterDirection.Input
ps.OracleType = OracleType.DateTime
ps.Value = DTP1.Text
commIP.Parameters.Add(ps)

pe.ParameterName = ":END_DATE"
pe.Direction = ParameterDirection.Input
pe.OracleType = OracleType.DateTime
pe.Value = DTP2.Text
commIP.Parameters.Add(pe)

Dim dr As OracleDataReader
dr = commIP.ExecuteReader

Dim i As Integer
i = 5
While dr.Read

ws.Cells(i, 2) = dr("name_r")
ws.Cells(i, 3) = dr("SUMMM")-Нужно подсцитать сумму этого столбца???
ws.Cells(i, 4) = dr("SUMMB_WNDS")
ws.Cells(i, 5) = dr("SUMMB")
End While
dr.Close()
app.Visible = True

End Sub