XML LINQ VB.Net

  1. Home
  2. VB.Net
  3. XML LINQ
  4. Loop through all the HourlyRate elements, setting them to the new payrate, which is the old rate 5%
Imports System
Imports System.Xml.Linq
    Public Class MainClass
        Public Shared Sub Main()
            Dim employees As XElement = XElement.Load("Employees.xml")
            Dim beforeQuery = From ele In employees. Select Name = ele..Value, Wage = CDbl(ele..Value)
            Dim currentPayRate As Double = 0
            For Each ele In employees..
                currentPayRate = (ele.Value) + ((ele.Value) * 0.05)
                ele.SetValue(currentPayRate)
            Next
        End Sub
    End Class