silverlight,linq,xmlreader,classlist

<UserControl x:Class=”SilverlightApplication1.InherentRisk”    xmlns=”http://schemas.microsoft.com/client/2007″     xmlns:my=”clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Data”    xmlns:x=”http://schemas.microsoft.com/winfx/2006/xaml”     Width=”Auto” Height=”Auto”>    <Grid x:Name=”LayoutRoot” Background=”White”>        <Grid.RowDefinitions>            <RowDefinition  Height=”*” />            <RowDefinition  Height=”*” />            <RowDefinition  Height=”*” />        </Grid.RowDefinitions>        <Grid.ColumnDefinitions>            <ColumnDefinition   Width =”50″/>            <ColumnDefinition  Width=”1900″ />            <ColumnDefinition  Width=”*” />        </Grid.ColumnDefinitions>          <StackPanel Orientation=”Vertical”  HorizontalAlignment=”Left” Grid.Row=”1″ Background=”White” Grid.Column=”1″>            <StackPanel Orientation=”Vertical” >             <TextBlock Text=”Impact on Audit strartegy”  HorizontalAlignment=”Left” Style=”{StaticResource TBSubTitleStyleWithoutUnderline}” ></TextBlock>            <my:DataGrid  x:Name=”dgStrategy” ColumnWidth=”105″ RowHeight=”32″ RowDetailsVisibility=”VisibleWhenSelected” HorizontalAlignment=”Left” Grid.Column=”0″ Grid.ColumnSpan=”2″ Height=”150″ Width=”600″>                <my:DataGrid.Columns>                    <my:DataGridTextBoxColumn   DisplayMemberBinding=”{Binding id}” Header=”id” Width=”0″ Visibility=”Collapsed” ></my:DataGridTextBoxColumn>                    <my:DataGridTextBoxColumn DisplayMemberBinding=”{Binding Description}” Header=”Description of impact”></my:DataGridTextBoxColumn>                     <my:DataGridTemplateColumn Header=”Section Impacted” Width=”340″>                        <my:DataGridTemplateColumn.CellTemplate>                            <DataTemplate>                                <StackPanel Orientation=”Horizontal”>                                    <ListBox x:Name=”lstStrat” Width=”330″  ItemsSource=”{Binding Section , Mode=TwoWay}” SelectionChanged=”lstChange” />                                </StackPanel>                            </DataTemplate>                        </my:DataGridTemplateColumn.CellTemplate>                        <my:DataGridTemplateColumn.CellEditingTemplate>                            <DataTemplate>                                <StackPanel Orientation=”Horizontal”>                                    <ListBox  x:Name=”lstStrat” Width=”330″ ItemsSource=”{Binding Section}” SelectedItem=”{Binding SelectedSection , Mode=TwoWay}” SelectionChanged=”lstChange” />                                </StackPanel>                            </DataTemplate>                        </my:DataGridTemplateColumn.CellEditingTemplate>                    </my:DataGridTemplateColumn>                                    </my:DataGrid.Columns>            </my:DataGrid>        </StackPanel> <StackPanel Orientation=”Vertical”  HorizontalAlignment=”Left” Grid.Row=”1″ Background=”White” Grid.Column=”1″>            <StackPanel Orientation=”Horizontal” Grid.Row=”2″ Grid.Column=”2″>                <TextBlock Width=”500″ x:Name=”placeholder”></TextBlock>                <Button Width=”150″ x:Name=”Next” HorizontalAlignment=”Center” Content=”Save” Height=”35″ ></Button>            </StackPanel>        </StackPanel>    </Grid></UserControl>  Public Class ClsTest         Private m_id As String        Private Sections As List(Of String)        Private m_Description As String        Private m_SelectedSection As String                 Public Property Section() As List(Of String)            Get                Return Sections            End Get            Set(ByVal value As List(Of String))                Sections = value            End Set        End Property         Public Property Description() As String            Get                Return m_Description            End Get            Set(ByVal value As String)                m_Description = value            End Set        End Property        Public Property id() As String            Get                Return m_id            End Get            Set(ByVal value As String)                m_id = value            End Set        End Property        Public Property SelectedSection() As String            Get                Return m_SelectedSection            End Get            Set(ByVal value As String)                m_SelectedSection = value            End Set        End Property    End Class

 Dim RskMgrSoapClient As New BizLogic.DataServiceSoapClient()’’webservice – BizLogic.Dim StrategyLst As New List(Of ClsTest)()RskMgrSoapClient.RetrieveTestFunctionAsync(“0″)’’function in webservice – BizLogic.         AddHandler RskMgrSoapClient.RetrieveTestFunctionCompleted, AddressOf RskMgrSoapClient_RetrieveTestFunctionCompleted

 Public Sub RskMgrSoapClient_RetrieveTestFunctionCompleted(ByVal sender As Object, ByVal e As Bizlogic.RetrieveTestFunctionCompletedEventArgs)        Try             Dim objRsk As ClsTest            Dim strxml As String = e.Result            Dim xmlProducts As XDocument = XDocument.Parse(strxml)            Dim products = From product In xmlProducts.Descendants(“Strat”)’’’linq            For Each p In products                objRsk = New ClsTest()                objRsk.Section = New List(Of String)                objRsk.Section.Add(“Team assignments including kpmg specialists”)                objRsk.Section.Add(“involvement of others”)                objRsk.Section.Add(“Timing of Audit activities”)                objRsk.Section.Add(“Communication with reviewers”)                objRsk.Section.Add(“meteriality”)                objRsk.id = p.Element(“ID”).Value.ToString                objRsk.Description = p.Element(“Desc”).Value.ToString                StrategyLst.Add(objRsk)            Next        Catch ex As Exception         End Try                Me.dgStrategy.ItemsSource = StrategyLst‘’binding datagrid (also having a list box “Section” in grid)    End Sub

‘’’editStrategyLst = dgStrategy.ItemsSourceFor Each objStrategy In StrategyLst            Dim strselectditem As String = IIf(objStrategy.SelectedSection Is Nothing, objStrategy.Section(0).ToString, objStrategy.SelectedSection)            RskMgrSoapClient.SaveTestFunctionAsync(objStrategy.id, objStrategy.Description, strselectditem, “False”) Next            

 XmlReader

Dim settings As XmlReaderSettings = New XmlReaderSettings()Dim reader As XmlReader = XmlReader.Create(“DocManifest.xml”)While reader.Read()      Select Case reader.NodeType           Case XmlNodeType.Element                 output.Append(reader.Name)            Case XmlNodeType.Text                output.Append(reader.Value + Environment.NewLine)       End SelectEnd WhileOutputTextBlock.Text = output.ToString

 ‘’’latest

Dim nodeX As XNode        Dim output As StringBuilder = New StringBuilder()         Dim xdoc As XElement = XElement.Load(“DocManifest.xml”)        Dim products = From product In xdoc.Elements(“DocumentControlService”).Elements(“Current”).Elements(“Item”).Elements(“DateTime”)        For Each p In products            p.Value = “206-555-0168″            ‘nodeX = p.FirstNode ‘products.First            nodeX = p            output.Append(nodeX.ToString)        Next        OutputTextBlock.Text = output.ToString        Dim Xadd As XElement = New XElement(“DateTime”, “206-555-0168″)        Dim xdoc1 As XElement = xdoc.Elements(“DocumentControlService”).Elements(“Current”).Elements(“Item”).First        xdoc1.Add(Xadd)        xdoc1.RemoveNodes()        products = Nothing        Return nodeX