datacolchanging事件,写代码
If e.DataCol.name = "第一列" AndAlso e.newvalue <> Nothing Then
e.newvalue = e.newvalue.toupper
End If