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


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

主题:KeyPressEdit事件里的疑问

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/13 20:13:00 [显示全部帖子]

因为数值型列,是不能输入字符的,也就不能响应字符的按键

下面代码放到keydown事件
If e.KeyCode = Keys.W AndAlso e.Table.Current IsNot Nothing Then
    e.Cancel = True
    Dim r As Row = e.Table.Current
    Dim v As Integer = Val(r(e.Table.ColSel))
    If v >= 0 Then 
        v = v + 1
    Else
        v = v - 1
    End If
    r(e.Table.ColSel) = v
End If


 回到顶部