Private Sub hwdg_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles hwdg.EditCommand
hwdg.EditItemIndex = e.Item.ItemIndex
lbdd()
Dim ts As New DataGridTableStyle '就是它决定了datagrid是什么样的
Dim aColumnTextColumn As DataGridTextBoxColumn '要重写的东东
DataGrid1.DataSource = dt
ts.MappingName = dt.TableName
Dim numCols As Integer
numCols = dt.Columns.Count
i = 0
Do While (i < numCols) '重绘所有的列
If i = 2 Or i = 3 Then
Dim ac As New DataGridBoolColumn
ac.HeaderText = dt.Columns(i).ColumnName
ac.MappingName = dt.Columns(i).ColumnName
ts.GridColumnStyles.Add(ac)
Else
aColumnTextColumn = New DataGridTextBoxColumn
'夺过对textbox内落下光标的控制权
'AddHandler aColumnTextColumn.TextBox.Enter, New EventHandler(AddressOf TextBoxEnterHandler)
'要更改列头名,请改下句的HeaderText值
aColumnTextColumn.HeaderText = dt.Columns(i).ColumnName
aColumnTextColumn.MappingName = dt.Columns(i).ColumnName
ts.GridColumnStyles.Add(aColumnTextColumn) '增加一种自定义的column风格
End If
i = (i + 1)
Loop
DataGrid1.TableStyles.Clear()
DataGrid1.TableStyles.Add(ts) '增加一种自定义的表风格
Private Sub TextBoxEnterHandler(ByVal sender As Object, ByVal e As System.EventArgs)
DataGrid1.Select(DataGrid1.CurrentRowIndex)
End Sub