参考:http://www.foxtable.com/webhelp/scr/0620.htm
例如
If e.Col.name = "年龄" Then '如果正在年龄
If e.KeyChar = "s" Then '如果输入的是s
e.Cancel = True
e.SelectedText = "岁"
ElseIf e.KeyChar = "y" Then '如果输入的是y
e.Cancel = True
e.SelectedText = "月"
ElseIf e.KeyChar = "t" Then '如果输入的是t
e.Cancel = True
e.SelectedText = "天"
End If
End If