主题：将大写小写字母转换为大写

DataColChanging事件

If e.DataCol.name = "第六列"
    If e.NewValue IsNot Nothing Then
        e.NewValue = e.NewValue.ToUpper
    End If
End If