Как добавить значения из нескольких Выберите случаи

Question

У меня есть программа vb.net, которая запускает хранимую процедуру в базе данных. После того, как я создаю набор данных, я просматриваю таблицу внутри набора данных, ища определенную информацию. Я использовал операторы Select Case для поиска правильной информации. Проблема, с которой я сталкиваюсь, я не могу понять, как отображать мои результаты как «сумму». Я знаю, что это потому, что я использую "для каждого", но я не уверен, как назначить "Результат" в ds.tables (0) .Rows

Код:

For Each Result As DataRow In ds.Tables(0).Rows 
      Select Case Result("Report") 
       Case "TOTALS" 
        Select Case Result("Description") 
         Case "Coupons", "Coupons Tax-Free", "GC" 
          MsgBox(Result("netAmt")) 
        End Select 

      End Select 
     Next 

Как кодированной I» m принимает 3 окна сообщений. Первый из них:

"15" 

Второй:

"10" 

Третье:

"5" 

Я бы предпочел, чтобы увидеть сумму всех 3 найдено:

"30" 

Как я могу получить их сумму, имея в виду ее Возможно, что один из 3 возвращается как 0 в некоторых случаях

Answer 1

требуется дополнительная переменная, которая будет хранить сумму, например:

Dim numberOfStudents As Integer = 0 

Тогда вместо отображения текущего чистую сумму добавить к текущая сумма:

sum = sum + FoundRow("netAmt") 

Для упрощения я предположил, что FoundRow возвращает число. Однако, если он возвращает, например, строку, вам придется проанализировать ее следующим образом: Integer.Parse(FoundRow("netAmt")).

Наконец, после того, как для каждого цикла отображения результата:

MsgBox(sum)