KeyPressEdit

在编辑框每输入一个字符时执行。

e参数属性：

Table:            所编辑的表
Row:              所编辑的行
Col:              所编辑的列
KeyChar:          字符型，表示所输入的字符。
Cancel：          逻辑型，如果设为True，取消本次字符输入。
Text:             返回或设置编辑框中的内容。
SelectedText:     返回或设置编辑框中选定的内容。　
SelectionStart:   返回或设置编辑框中选定内容的起始位置(光标位置)。
SelectionLength:  返回或设置编辑框中选定内容的长度。

示例一

例如在输入产品编码时，希望禁止输入符号和标点，同时希望将输入的小写字母自动转换为大写，KeyPressEdit事件的代码可按如下设置：

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

示例二

假定“型号”列设置了列表项目，希望在此列输入内容时，能自动打开下拉列表，可如下设置KeyPressEdit事件的代码：

If e.Col.Name = "型号" Then '如果编辑的是型号列
    If e.Col.DroppedDown = False '且下来列表没有打开
        e.Col.OpenDropDown() '打开下拉列表
    End If
End If