Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：KeyPressEdit事件里的疑问
1楼
yellow 发表于：2024/2/8 21:54:00
在KeyPressEdit事件设置了代码：按w键时单元格的数值就增加1。当这个列是字符型的，可以实现。当列是整数型时不能实现。要怎样才可以让整数型的列也可以按下不同按键实现增减？

                e.Cancel = True
                Dim v As Integer = Val(e.Text)
                If v >= 0 Then  
                    v = v + 1
                Else
                    v = v - 1
                End If
                e.Text = v    '更新编辑框内容
2楼
有点蓝 发表于：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

共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.