If e.Col.name = "关单号" Then '如果正在输入产品编码
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) Then '如果输入的是符号或者标点
e.Cancel = True '则取消此次字符输入
ElseIf Char.IsLower(e.KeyChar) Then '如果输入的是小写字母
e.Cancel = True '同样取消此次字符输入
e.SelectedText = e.KeyChar.ToUpper '同时插入该字符的大写形式
End If
End If
如果这个代码在窗口中使用应该怎么改(不是绑定字段)