- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14153)
-- 发布时间：2011/11/9 23:15:00
-- 代码求助
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
如果这个代码在窗口中使用应该怎么改（不是绑定字段）
-- 发布时间：2011/11/10 8:23:00
--
窗口的输入框的KeyPress事件:
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) Then \'如果输入的是符号或者标点
e.Cancel = True \'则取消此次字符输入
ElseIf Char.IsLower(e.KeyChar) Then \'如果输入的是小写字母
e.Cancel = True \'同样取消此次字符输入
e.Sender.SelectedText = e.KeyChar.ToUpper \'同时插入该字符的大写形式
End If
-- 发布时间：2011/11/10 14:59:00
-- 报错啊
代码报错。请再看看
此主题相关图片如下：截图21.jpg
-- 发布时间：2011/11/10 15:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目37.table |
-- 发布时间：2011/11/10 15:19:00
-- 可以了。
可以了。