Вы можете создать функцию в код сообщения пополняемый общее значение, как показано ниже:
Dim runningTotals As System.Collections.Hashtable
Public Function AddRunningTotalValue(ByVal dateStr As Object, ByVal amount As Object)
If (runningTotals Is Nothing) Then
runningTotals = New System.Collections.Hashtable
End If
If (Not runningTotals.Contains(dateStr)) Then
runningTotals.Add(dateStr, amount)
End If
AddRunningTotalValue = amount
End Function
Public Function GetRunningTotalValue(ByVal dateStr)
If (Not runningTotals.Contains(dateStr)) Then
GetRunningTotalValue = 0
End If
If (runningTotals.Contains(dateStr)) Then
For Each dateStrPair As System.Collections.DictionaryEntry In runningTotals
If dateStrPair.Key.ToString() = dateStr Then
GetRunningTotalValue = dateStrPair.Value
End If
Next
End If
End Function
Конечно, вы бы изменить функцию ПОЛУЧИТЬ только возвратить сумму значений месяца, которые вы хотите добавить вместе.