Foxtable(狐表)用户栏目专家坐堂 → [求助]判断鼠标单元格是否在某列


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

主题:[求助]判断鼠标单元格是否在某列

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3842 威望:0 精华:0 注册:2016/8/21 3:43:00
[求助]判断鼠标单元格是否在某列  发帖心情 Post By:2017/4/13 12:29:00 [只看该作者]

有一个窗口中的Table,在keydown部分输入代码,希望鼠标单击或鼠标在“项目"列中时按下空格键当前单元格为空格,
现在的代码是在同一行的其它单元格选中后按空格键,”项目“列的同行单元格都会变为空格,于是加一个判断,只对指定的列有效,
If e.Table.Current("项目").Select Then '这行不对,请求协助
    If e.keyCode = Keys.space Then
        Tables("报价单_Table1").Current("项目") = Nothing
    End If
End If


另外,同时想在这个窗口的Table中实现鼠标滚动,表格跟着上下滚动是否可以实现?

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


加好友 发短信
等级:超级版主 帖子:110813 积分:564003 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/4/13 14:29:00 [只看该作者]

If e.Table.Current IsNot Nothing Then '这行不对,请求协助
    If e.Table.ColSel = e.Table.Cols("项目").Index
        If e.keyCode = Keys.space Then
            Tables("报价单_Table1").Current("项目") = Nothing
        End If
    End If
End If

表格跟着上下滚默认就是可以的

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


加好友 发短信
等级:一尾狐 帖子:459 积分:3842 威望:0 精华:0 注册:2016/8/21 3:43:00
  发帖心情 Post By:2017/4/13 14:51:00 [只看该作者]

谢谢@有点蓝,按你的方式问题解决了.
鼠标滚动我测试了,要点一下表后就可以

 回到顶部