datacolchanging事件
If e.DataCol.Name="第二列" AndAlso e.NewValue > "" Then
Dim p As String = "^[0-9a-zA-Z\u4e00-\u9fa5]+$"
Dim rgx = new System.Text.RegularExpressions.Regex(p, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If Not rgx.isMatch(e.NewValue) Then
MessageBox.Show("不能输入标点符号")
e.Cancel = True '则取消此次字符输入
End If
End If