Dim ts As New DataGridTableStyle()
Dim aColumnTextColumn As DataGridTextBoxColumn '在这里只对一列进行了绑定
DataGrid1.DataSource = dt
ts.MappingName = dt.TableName
aColumnTextColumn = New DataGridTextBoxColumn()
AddHandler aColumnTextColumn.TextBox.KeyPress, AddressOf Column_KeyPress '让列中的单元格来响应KeyPress事件
aColumnTextColumn.HeaderText = "姓名"
aColumnTextColumn.MappingName = “name”
ts.GridColumnStyles.Add(aColumnTextColumn) '增加一种自定义的column风格
DataGrid1.TableStyles.Add(ts) '增加一种自定义的表风格
‘事件处理程序,同样适用于其它Textbox用于数值框处理的情况。
Private Sub Column_KeyPress(ByVal sender As Object, _ByVal e As System.Windows.Forms.KeyPressEventArgs)
MsgBox("You have pressed the " & e.KeyChar)
end sub