Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles _
      Me.Loaded
 
        dgMessungen.ItemsSource = Messungen.DefaultView()
        TexteAktualisieren()
 
    End Sub
 
    Private Sub dgMessungen_SelectionChanged(sender As Object, e As _
      SelectionChangedEventArgs) Handles dgMessungen.SelectionChanged
 
        TexteAktualisieren()
 
    End Sub
 
    Private Sub TexteAktualisieren()
 
        If dgMessungen.CurrentItem Is Nothing Then Exit Sub
        Dim AktRow As DataRowView = CType(dgMessungen.CurrentItem, DataRowView)
        TextboxX.Text = AktRow("EigenschaftX").ToString
        TextboxY.Text = AktRow("EigenschaftY").ToString
        usw....
 
    End Sub

 
        <Style TargetType="{x:Type DataGrid}" x:Key="DataGrid">
            <Setter Property="HorizontalGridLinesBrush" Value="{DynamicResource" & _
              "{DynamicResource {x:Static SystemColors.ControlDarkBrushKey}}}" _
              />
            <Setter Property="VerticalGridLinesBrush" Value="{DynamicResource" & _
            "{x:Static SystemColors.ControlDarkBrushKey}}" />
            <Setter Property="AlternatingRowBackground" Value="#FFE2E2E2" />
            <Setter Property="ItemsSource" Value="{Binding }" />
            <Setter Property="SelectionMode" Value="Single" />
            <Setter Property="SelectionUnit" Value="FullRow" />
            <Setter Property="BorderBrush" Value="{DynamicResource {x:Static" & _
              "SystemColors.ControlDarkBrushKey}}" />
            <Setter Property="HeadersVisibility" Value="Column" />
            <Setter Property="IsReadOnly" Value="True" />
            <Setter Property="IsSynchronizedWithCurrentItem" Value="True"/>
        </Style>
 
            <DataGrid x:Name="dgMessungen" Style="{StaticResource DataGrid}" _
              MaxWidth="650" MaxHeight="120"/>