Foxtable(狐表)用户栏目专家坐堂 → KeyPressEdit 疑问


  共有2554人关注过本帖树形打印复制链接

主题:KeyPressEdit 疑问

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
KeyPressEdit 疑问  发帖心情 Post By:2019/12/11 16:48:00 [只看该作者]

JPK612任务单_KeyPressEdit

 

Select Case e.Col.name

    Case  "装配piao号"

        If Char.IsLower(e.KeyChar) Then 

           e.Cancel = True

           e.SelectedText = e.KeyChar.ToUpper

        End If

End Select


我的疑问是,如上代码,如果在"装配piao号"里面逐个字符输入内容,小写字母就会变成大写字母。但是,如果是将复制的一个字符串粘贴到"装配piao号"这个单元,小写字母就不会变成大写字母。为什么?怎么改代码?谢谢。


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110587 积分:562831 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/11 16:58:00 [只看该作者]

KeyPressEdit的帮助有说明,这个事件在编辑框每输入一个字符时执行,对复制,或者使用代码赋值是不会触发的

DataColChanging
If e.DataCol.Name = "装配piao号" Then 
    e.NewValue = e.NewValue.ToUpper
End If
[此贴子已经被作者于2019/12/11 16:58:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2019/12/19 15:24:00 [只看该作者]

谢谢。

 回到顶部