Сделал так стало еще легче..
хотя... нашел Ультрагрид и стало совсем легко ))))
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
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
Может у кого еще есть мысли на этот счет а то я в дотНете только учусь..
