以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]限制大写字母问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62235)
--  作者：xianzheng
--  发布时间：2014/12/28 11:12:00
--  [求助]限制大写字母问题

某一列只能输入大写字母，如何写代码

 

 
--  作者：有点甜
--  发布时间：2014/12/28 11:27:00
--  

 ValidateEdit事件

 

If e.Col.name = "第二列" Then
    For Each c As String In e.text
        If Asc(c) > 90 OrElse Asc(c) < 65 Then
            msgbox("只能输入大写字母")
            e.Cancel = True
            Exit For
        End If
    Next
End If
--  作者：xianzheng
--  发布时间：2014/12/28 15:05:00
--  

ok，谢谢