重绘datagrid,包括强迫显示某行

#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