Public Sub SetGridColumnsUnSelectable(ByRef dg As DataGrid, ByVal Mapping As String)
        Dim tablestyle As DataGridTableStyle
        Dim temptablestyle As New DataGridTableStyle()

        Dim GridColumnStyle As DataGridColumnStyle
        Dim sMaping As String
        Dim aColumnTextColumn As DataGridBrowser.DataGridNoActiveCellColumn

        For Each tablestyle In dg.TableStyles
            With tablestyle
                'Поиск стиля с необходимым мапингом
                If .MappingName = Mapping Then
                    For Each GridColumnStyle In .GridColumnStyles
                        With GridColumnStyle
                            ' Копирование свойств в 
                            aColumnTextColumn = New DataGridBrowser.DataGridNoActiveCellColumn()
                            aColumnTextColumn.Width = .Width
                            aColumnTextColumn.HeaderText = .HeaderText
                            aColumnTextColumn.ReadOnly = True
                            aColumnTextColumn.MappingName = .MappingName
                            temptablestyle.GridColumnStyles.Add(aColumnTextColumn)
                        End With
                    Next

                    'Восстановление сетки
                    tablestyle.GridColumnStyles.Clear()
                    For Each GridColumnStyle In temptablestyle.GridColumnStyles
                        With GridColumnStyle
                            aColumnTextColumn = New DataGridBrowser.DataGridNoActiveCellColumn()
                            aColumnTextColumn.Width = .Width
                            aColumnTextColumn.HeaderText = .HeaderText
                            aColumnTextColumn.ReadOnly = True
                            aColumnTextColumn.MappingName = .MappingName
                            tablestyle.GridColumnStyles.Add(aColumnTextColumn)
                        End With
                    Next
                    Exit Sub
                End If
            End With
        Next
    End Sub