#Region "用来对DataGrid的显示样式进行重绘"
Private Sub FormatGridWithTableStyles()
Dim ts As New DataGridTableStyle '就是它决定了datagrid是什么样的
Dim aColumnTextColumn As DataGridTextBoxColumn '要重写的东东
ts.MappingName = datagridTable.TableName
Dim numCols As Integer
numCols = datagridTable.Columns.Count
Dim i As Integer = 0
Do While (i < numCols) '重绘所有的列
aColumnTextColumn = New DataGridTextBoxColumn
'夺过对textbox内落下光标的控制权
AddHandler aColumnTextColumn.TextBox.Enter, New EventHandler(AddressOf TextBoxEnterHandler)
'要更改列头名，请改下句的HeaderText值
aColumnTextColumn.HeaderText = datagridTable.Columns(i).ColumnName
'更改列的实际内容
aColumnTextColumn.MappingName = datagridTable.Columns(i).ColumnName
'自动改变行宽不对
aColumnTextColumn.TextBox.AutoSize = True
'MsgBox(aColumnTextColumn.HeaderText.ToString)
'Debug.Write(aColumnTextColumn.TextBox.Width & "aa")
'自动改变行宽不对
aColumnTextColumn.TextBox.AutoSize = True
ts.PreferredColumnWidth = aColumnTextColumn.TextBox.Width()
ts.GridColumnStyles.Add(aColumnTextColumn) '增加一种自定义的column风格
i = (i + 1)
Loop
DataGrid1.TableStyles.Clear()
DataGrid1.TableStyles.Add(ts) '增加一种自定义的表风格
End Sub
#End Region
#Region "当点击时强迫datagrid选中某行，而不是某行某列"
Private Sub TextBoxEnterHandler(ByVal sender As Object, ByVal e As System.EventArgs)
Dim inner As Control = sender
inner.Visible = False
DataGrid1.Select(DataGrid1.CurrentRowIndex)
End Sub
#End Region
