Foxtable(狐表)用户栏目专家坐堂 → [求助]


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

主题:[求助]

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


加好友 发短信
等级:幼狐 帖子:122 积分:1805 威望:0 精华:0 注册:2016/8/30 12:08:00
[求助]  发帖心情 Post By:2017/9/5 13:40:00 [显示全部帖子]

希望在“条形码”列中按回车键自动在该单元格里面换行而不是切换到下一列,于是在keydownedit中写下代码:

If e.Col.Name = "条形码" AndAlso e.KeyCode = 13 Then
    sendkeys.Send(Chr(10))
    e.cancel = True
End If

可是执行却出现类似死循环,就是一直在该单元格里面换行!为什么呢!?

[此贴子已经被作者于2017/9/5 13:41:11编辑过]

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


加好友 发短信
等级:幼狐 帖子:122 积分:1805 威望:0 精华:0 注册:2016/8/30 12:08:00
  发帖心情 Post By:2017/9/5 14:33:00 [显示全部帖子]

老师理解错意思了!并不是想让焦点移动到下一个单元格,而是在同一个单元格里面换行!如图:
图片点击可在新窗口打开查看此主题相关图片如下:tip3.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:122 积分:1805 威望:0 精华:0 注册:2016/8/30 12:08:00
  发帖心情 Post By:2017/9/5 14:36:00 [显示全部帖子]

我把keydownedit的sendkeys指令取消,在keypressedit上加了下面的代码好像可以了!

If e.Col.Name = "条形码" AndAlso e.Keychar = chr(13) Then
    sendkeys.Send(Chr(10))
End If


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


加好友 发短信
等级:幼狐 帖子:122 积分:1805 威望:0 精华:0 注册:2016/8/30 12:08:00
  发帖心情 Post By:2017/9/5 15:06:00 [显示全部帖子]

测试可以!~谢谢老师!图片点击可在新窗口打开查看

 回到顶部