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.<Employee> Select Name = ele.<Name>.Value, Wage = CDbl(ele.<HourlyRate>.Value)
Dim currentPayRate As Double = 0
For Each ele In employees.<Employee>.<HourlyRate>
currentPayRate = (ele.Value) + ((ele.Value) * 0.05)
ele.SetValue(currentPayRate)
Next
End Sub
End Class
|